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Grüß Gott—Gruezi—Guten Tag 


Die letzte Ausgabe war leider kein Meisterwerk un¬ 
serer Herstellung. 

Beim Umbruch fiel Wichtiges unter den ,,Tisch", 
auch wurden leider Bilder vertauscht. In diesem 
Heft finden Sie alle wichtigen Korrekturen. 

Damit sind wir auch schon bei der im letzten Heft 
angesprochenen Wette zwischen Redaktion und 
Verlagsleitung hinsichtlich der offenen Art der 
TI-REVUE, auch Fehler einzugestehen. Sie, liebe 
Leser, haben sich eindeutig dafür entschieden, daß 
dieses so bleiben soll. Und dazu ist dann ja wohl 
gleich anzumerken, daß die Redaktion nun die 
Frage nach dem Gewinn stellt. 

Eine weitere wichtige Entscheidung fiel auf der letz¬ 
ten Redaktionsbesprechung: Die TI-REVUE wird 
sobald wie möglich monatlich erscheinen. 

Damit erfüllen wir den Wunsch der überwiegenden 
Mehrheit unserer Leser, wie eine erste Stichproben¬ 
auswertung der Fragebögen ergab. Zum Zeitpunkt, 
als diese Zeilen geschrieben wurden, mußten mit 
dem Vertrieb noch einige Daten geklärt werden. 
Voraussichtlich kommt der ,,Startschuß " im näch¬ 
sten Heft! 

Ein weiterer Punkt, der uns Kopfzerbrechen berei¬ 
tete, war die Länge des Quellcodes zu Assembler¬ 
programmen. Um nicht zuviel Platz aufwenden zu 
müssen, der dann anderen Themen fehlt, wollen wir 
in Zukunft folgenden Weg einschlagen: Im Heft 
werden, wenn möglich, Poke-Listen veröffentlicht. 
Die Quelldateien werden im Diskettenservice ent¬ 
halten sein. Um jedoch Leser, die kein Disk-Lauf¬ 
werk haben zu berücksichtigen, können diese ge¬ 
gen Einsendung eines frankierten Rückumschlages, 
zzgl. Unkostenbeitrag, die Listen fotokopiert er¬ 
halten. Leider bedingt diese Umstellung eine noch¬ 
malige Überarbeitung der vorliegenden Programme 
und so bitten wir um Verständnis, daß in dieser 
Ausgabe kein extra Assembler-Programm enthalten 
ist. Allen Assemblerfreunden sei aber gesagt, daß 
wir noch in diesem Herbst ein Assembler-Sonder¬ 
heft veröffentlichen werden, randvoll mit Quell¬ 
dateien. 

Damit wir es nicht vergessen: Wir bedanken uns 
bei über 4000 Lesern, die den Fragebogen ausge¬ 
füllt und eingesandt haben. Wie das Rennen um 
den begehrten PC ausgegangen ist, hoffen wir. in 
der nächsten Ausgabe mit teilen zu können, denn 
zum Zeitpunkt der Fertigstellung dieses Heftes 
lag ja der Einsendeschluß noch in weiter Ferne. 

Das wär’s für heute. Bis zum nächsten Mal die 
besten Grüße von 
Eurem TI-REVUE-Team 

Nicht vergessen: 

Seid Ihr mit dem Heft unzufrieden, sagt's uns. 
seid Ihr zufrieden, sagt es weiter. Und: 

Jeden Dienstag von 15 bis 19 Uhr steht Ihnen 
unser Lesertelefon zur Verfügung: Für technische 
und Assemblerfragen Tel.-Nr. 0731 /33220 und zu 
den Listings Tel.-Nr. 089/286036. 

Die nächste 
TI REVUE erscheint 
am 28. Oktober 


TI-99/4 A 


PERIPHERIE 

32 K-Karte (Corcomp) 429,— 
RS 232-Karte (Orig. TI) 429,- 
P-Code-Karte (Orig. TI) 799,- 
Compact Peripherie System 99 
(Disccontroller DSD, 32 K-RAM, 
2xV-23, 1 Centronics- 
schn.) 1200,— 

dto. + 1 Laufw. DSDD 1698,— 
Ext. 32 K-Erweiterung 299,— 
dto. = 1 Centronics- 
schnittst. 359,— 

Externes Druckerinterface + 
Kabel + Epson RX 80 1299,- 

dto. + RX 80 FT+ 1519,— 

dto. + FX 80+ 1819,- 

dto. + Star SG-10 1279,- 

2. Laufwerk extern Slimline 
DSDD mit Gehäuse + Netz¬ 
teil 899,- 

Sprachsynthesizer 189,— 

Grafiktablett (Super¬ 
sketch) 239,— 

Modulexpander 3fach 125,— 
8 fach 225,- 
Akustikkoppler Dataphon S 
21 d + externe V-24-Schnitstelle 
+ Verbindungskabel 579,— 
Fernbedienung (Orig. TI) 65,— 
Joystickinterface + 2 Joysticks 
Quickshot II 95,— 

Cassettenrecorderkabel 29,— 

BÜCHER 

Editor/Assembler Handbuch 
dt. 98,- 

Extended Basic Handb. dt. 48,- 
TI-Basic & Extend. Basic 48,— 
Mini Memory Spezial dt. 55,— 
Assemblerhandbuch für das 
Mini Memory dt. 78,— 

TI-99/4A intern in dt. (Betriebs¬ 
system, GPL, ROM ...) 38,— 


MODULSOFTWARE 

Extended Basic (Orig. TI) 259,— 
Ext. Basic (dt. NaChbau) 239,— 
Extended Basic II Plus 299,— 
Mini Memory 289,— 

Editor/Assembler 
(32 K notwendig) 175,— 

Tl-Writer (32 K notw.) 299,- 
Multiplan (32 K notw.) 299,— 
Terminal Emulator II 95,— 
Speech Editor 99,— 

Connect four, Yahtzee je 29,— 
Attack, Chisholm, Trail, Othello, 
Tombstone City, 

Tl-Invaders je 39,— 

Parsec, Alpiner, Indoor, Soccer, 
Car Wars je 49,- 

Fathom, Microsurgeon, Moon- 
mine, Hopper, Bigfoot, 

Statistik je 59,— 

Espial, Defender, Dig Dug, 
Tunnels of Doom, Star 
Trek je 69,— 

Buck Rogers, Burgertime, 

Congo Bongo, Return to Pirate's 
Isle, Treasure Isle, Adventure- 
modul je 75,— 

Video Chess, Moon- 
sweeper je 79, — 

Datenverwalter + Analyse 79,— 
Moon Patrol, Jungle Hunt, Hs. 
Pacman, Donkey Kong, 

Popeye je 89,— 

Miner 2049- 99,- 

DISKETTEN- UND 

CASSETTENSOFT- 

WARE 

Superbasic, Exbasic II + Painter, 
Extended Basic Compiler, Gra- 
phicmaster. 3-D-World, Forth, 
Apesoft-Programme, TI-Text, 
TI-Datei, Skat ... a.A. 


Alle Preise inkl. MWSt. zuz. Versandkostenpau¬ 
schale (Warenwert bis DM 1.000,—/darüber): 
Vorauskasse (DM 8,-/20,-), Nachnahme (DM 
11,20/23,20), Ausland (DM 18-/30,-. Versand 
nur gegen Vorauskasse oder per NN; Ausland nur 
Vorauskasse. Gesamtpreisliste gegen Freiumschlag. 

CSV RIEGERT 

Schloßhofstr. 5, 7324 Rechberghausen, 

Tel. (0 71 61) 5 28 89 


UNSER 

® TELEFONSERVICE ® 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 

dieser Seite ACHT UN G !!! 

Ab sofort steht unseren Lesern unser Telefon- 
Service zur Verfügung! feden Diensta g von 15 bis 
19 Uhr. Für technische Fra g en: 0731/33 220 und 
für Listin g s/Pro g ramme: 089/286036. 




Nr. 7/85 

September-Oktober 


INHALT 


IN DIESEM HER- 
LESEN SIE: 


DIALOG 


Italienische Texte in der 
Kassetten- R outi ne? 

Gefahr für Programme 
Drucker und Kleinbuchstaben 
Spielmodule laufen nicht 
Call Load ohne Speicher- 
Erweiterung? 

Lampe des Disc-Controllers 
flackert! 


Computer-Chinesisch 
Fehlerhaftes Statistik- 
Modul 

4-7 

SERIE UND SERVICE 

Grüß Gott 


Clubseite 

18 

Alle Service-Coupons 

33-34 

Assembler-Kurs III 

60 

Börse 

62-67 

Impressum 

3 

TEST, TIPS & TRICKS 


Farbfernseher als Monitor 
Garbage-Collection — der 
Abfalleimer im TI 
Betriebs-System überlisten 
Peekes und Pokes für Minimem 
Unterprogramm-Routinen 
Char Change 2 
Subprogramme vor derm 
Hauptprogramm 
Überlange Zeilen in den 
Listings 

Kassette als Datenspeicher 
Vergrößerter Ausdruck in 


einer 8x8-Matrix. 
Kassetten-Tips 

12-15 

Wenn der Lüfter stört 

8 

Software im Test 

16 

CC 40: 


Eine erwägenswerte 


Alternative 

10 

Eprommer-Platine zum 

Selbstbau 

11-12 


Eprom-Programmiergerät — 

2. Teil 

53 


LISTINGS FÜR DEN TI 99/4A 

Manie Miner 

19 

Octopus 

23 

Morsegenerator 

25 


Impressum 

TI-REVUE, die Zeitschrift für den TI 
PC und den TI 99/4A erscheint 6x 
jährlich in der TI/CBM Verlagsgesell¬ 
schaft, Werner E. Seibt, Postfach 
1107, Elisabethstraße 1,8044 
Lohhof. 

Redaktion: Senator-Presse-Service. 
Verantwortlich für den Inhalt: 

Klaus Herdin und Heiner Martin. 
Verantwortlich für Anzeigen: 

Bruno Redase. 

Verantwortlich für Listings: 

Hartmut König. 

Alle: Postfach 1107, 8044 Lohhof. 
Anfragen bitte nur schriftlich. 

Druck: Maier und Söhne 
Es gilt die Honorarliste des Verlages. 
Für unaufgefordert eingesandte Ma¬ 
nuskripte und Listings keine Haftung. 
Bei Einsendung von Texten, Fotos 


Praktische Astronomie 

29 

Planeten-Positionen 

39 

USA-Race 

41 

Strom- und Gasdatei 

46 

Primzahlen 

51 

Und zum Schluß: Gewinnen 
Sie einen MSX-Computer! 

34 


und Programmträgern erteilt der 
Autor dem Verlag die Genehmigung 
für einen einmaligen Abdruck sowie 
die Aufnahme in den Programm- 
Service nach den Verlags-Sätzen! 
Alle in dieser Zeitschrift veröffent¬ 
lichten Beiträge sind urheberrecht¬ 
lich geschützt. Jedwede Verwertung 
ist untersagt, Nachdruck nur mit 
ausdrücklicher schriftlicher Zustim¬ 
mung des Verlages. Namentlich ge¬ 
zeichnete Artikel geben nicht unbe¬ 
dingt die Meinung der Redaktion 
wider. 

Kein Anspruch auf Lieferung bei 
Ausfall durch höhere Gewalt. 
Gerichtsstand: München 
Geschäftsführer: Werner E. Seibt 
Abo- und Kassetten-Service: 

Henny Rose Seibt 
© by TI/CBM Verlagsgesellschaft, 
SPS und Autoren.' 



Druckeranschluß ohne 
P-Box 


52 


3 














FRAGEN & ANTWORTEN 


ITALIENISCHE TEXTE 
BEI DER KASSETTEN¬ 
ROUTINE 


Sie haben in Ihrer 5. Aus¬ 
gabe über Testroutinen in 
TI-Modulen geschrieben. 

Bei meinem Invadermo- 
dul geht das aber nicht. 
Könnten Sie nochmal ge¬ 
nau die Tastenabläufe 
erklären. 

Ich besitze das Modul 
Datenverwaltung und 
Analyse. Wenn ich das - 
Modul in die Konsole 
stecke und 1 anwähle 
(TI-Basic), dann OLD 
CS1 schreibe und Enter 
drücke, kommen die gan¬ 
zen Anweisungen auf 
Italienisch. Ist das normal 
oder ist da etwas defekt? 
Ich besitze auch noch 
das Modul Text und Date. 
Bei demselben Vorgang 
kommt nur ein Gerkitzel. 
Steffen Keller, 

Merklingen 

Erst nach unseren Veröf¬ 
fentlichungen über die 
Testroutinen in Modulen 
mußten wir feststellen, 
daß es offensichtlich eine 
ganze Reihe von Tl-In- 
vader Modulen gibt, bei 
denen der Testmodus 
nicht aufgerufen werden 
kann (zumindest nicht 
auf die geschilderte Art 
und Weise, eine andere 
haben wir aber noch nicht 
gefunden ). 

Die italienischen Kasset¬ 
tenanweisungen bei einge¬ 
stecktem Modul Daten¬ 
verwaltung und Analyse 
sind völlig normal. Offen¬ 
sichtlich war der Program¬ 
mierer dieses Moduls 
Italiener und wollte seinen 
Landsleuten etwas Gutes 
tun. Er programmierte 
das bei der Kassettenrou¬ 
tine zum Schreiben der 
Texte benutzte GPL-Un- 
terprogramm (Name 
>03) nochmal und legte 
es in das GR OM 7. Da die 
Suchroutine für die Un¬ 
terprogramme beim höch¬ 
sten GR OM beginnt, fin¬ 
det der Computer zuerst 
das neue Unterprogramm 
zum Schreiben der italie¬ 
nischen Texte. Ähnlich 
verhält es sich beim Mo¬ 
dul Text und Datei. Auch 
hier ist das Unterpro¬ 
gramm zum Schreiben 
der Texte nochmal enthal¬ 
ten. Es schreibt aber die 


Texte auf Deutsch, ohne 
den besonderen Bild¬ 
schirmaufbau des Basic 
zu berücksichtigen, daher 
sieht man nur unverständ¬ 
liche Zeichen. 


GEFAHR FÜR DIE 
PROGRAMME 


Als ich neulich ein irre 
langes Tl-Programm ab¬ 
tippte und es zur Probe 
laufen ließ, wollte ich den 
Programmablauf mit 
„Clear“ unterbrechen. 
Doch dann löschte mein 
TI plötzlich das ganze, 
mühsam eingegebene Pro¬ 
gramm und zeigte mir 
wieder das TI-Titelbild. 
Ich ging dem Vorgang auf 
den Grund und fand her¬ 
aus: Will man irgendein 
Programm mit „Clear“ 
(Fnct’n 4) anhaiten, so 
darf man auf keinen Fall 
die Taste “M” berühren, 
sonst verabschiedet sich 
das Programm auf Nim¬ 
merwiedersehen und der 
TI piepst einem nur noch 
frech mit dem Titelbild 
entgegen. 

Thomas Arend 
Dillingen 

Dieses Verhalten des TI 
9914A liegt im Betriebs¬ 
system und im Aufbau 
des Computer begründet. 
Die Quit-Taste wird in 
der Interrupt-Routine ab¬ 
gefragt. Besitzer des Ex- 
tended-Basic mit Spei¬ 
chererweiterung oder des 
Mini-Memorys können 
die Funktion der Quit- 
Taste bekanntlich mit ' 
CALL LOAD (-31806, 
16) abschalten. Dies hebt 
auch die Wirkung der 
oben geschilderten 
Tastenkombination auf. 


DRUCKER UND 
KLEINBUCHSTABEN 


Um selbst einen Infoge¬ 
winn zu erzielen und Ihre 
Zeitschrift, die ich sehr 
informativ finde, zu be¬ 
reichern, hier einige 
Fragen: 

1. Habe ich eine Entdek- 
kung gemacht oder eine 
defekte Konsole? Gleich¬ 
zeitiges Drücken der 
Tasten Fct’n, Enter, 0 
bzw. 2 bewirken den 
Quit-Befehl. 

Haben Sie eine Erklärung? 


2. Können die Module 
Datenverwaltung und Ana¬ 
lyse und Statistik auf eine 
32K-Erweiterung zugrei¬ 
fen (im Modulmodus 
oder in TI-Basic über 
CALL P)? 

3. Druckt ein Drucker die 
TI-Kleinbuchstaben oder 
„Echte“? Ist dies unter 
Umständen durch CALL 
CHAR beeinflußbar? 

4. Ist die Hauptthemen¬ 
liste aus einem Betriebs¬ 
modus nur über das Stan¬ 
dardbild zugänglich? 

Alfred Kettenis 

Trier 

Ihre erste Frage wurde 
eben beantwortet. Bei 
der zweiten ist es leider 
so, daß die Module Da¬ 
tenverwaltung und Ana¬ 
lyse bzw. Statistik nicht 
auf eine Speichererweite¬ 
rung zurückgreifen kön¬ 
nen. Der Befehl CALL P 
res er v ier t Sp eich erp la t z 
ausschließlich im VDP- 
RAM, also nur in der 
Konsole. 

Ein Drucker dmckt immer 
nur die Zeichen des im 
Drucker eingebauten Zei¬ 
chensatzes. Wenn der 
Drucker also Unterlängen 
kann, so druckt er auch 
am TI 99/4A ,,echte“ 
Kleinbuchstaben. Der 
Drucker erhält als Infor¬ 
mation, welches Zeichen 
er drucken soll, ja nur den 
ASCII-Code des entspre¬ 
chenden Zeichens ( der 
gleiche Wert, den Sie bei 
CALL CHAR als Charac- 
ter-Code eingeben). Die 
Hauptthemenliste kön¬ 
nen Sie ohne,,Klimmzü¬ 
ge“ nur über das Titelbild 
erreichen. Aus Assembler 
bzw. GPL mit gewissen 
Voraussetzung ist es aber 
möglich, ein eigenes 
Titelbild aufzubauen, so 
wie es z.B. beim Schach¬ 
modul bzw. beim Disk- 
Controller der amerikani¬ 
schen Firma CorComp 
gemacht wird. 


SPIELMODULE 
LAUFEN NICHT 


Auf der Dortmunder 
„Computronic“ kaufte ich 
ein Spielmodul, das Für 
den TI 99/4A ausgelegt 
ist. Angeschlossen wird 
es an den Modulport. Zu¬ 
hause stellte ich fest, daß 


das Spiel nicht im Menü 
erschien. Ich tauschte es 
um und der Händler mein¬ 
te, wenn dies auch nicht 
funktioniere, so. sei mein 
Computer defekt. Es 
funktionierte nicht. So 
schickte ich den Rechner 
ein, bekam ihn nach 7 
Wochen wieder mit dem 
Hinweis, daß nichts ka¬ 
putt sei. Ich probierte 
dann das Modul an einem 
anderen TI 99/4A aus, 
wo es auch einwandfrei 
lief. Ich schickte nun den 
Rechner mit dem Modul 
ein. Während dieser Zeit 
bekam ich die 5. Ausga¬ 
be der TI-REVUE in die 
Hände. In dem Artikel 
über die Modulplatine 
stieß ich auf den Satz: 
„...läuft auf allen in 
Deutschland verkauften 
Konsolen, bis auf die 
K-onsolen, die (c) 1983 
im Titelbild haben...“. 
Bedeutet dies etwa, daß 
zwei verschiedene Versio¬ 
nen des TI 99/4A existie¬ 
ren (daß es einen 99/4 
gab, ist mir ja bekannt), 
und wie, falls Sie das 
wissen, unterschieden 
sich diese? 

Thomas Kulpmann 
Hagen 


Reine ROM-Module, das 
sind alle Module, die 
nicht von Texas Instru¬ 
ments, sondern von 
Fremdanbietern angebo- 
ten werden, laufen auf 
den Konsolen, die sich im 
Titelbild mit “C 1983 V 
2.2“ melden, nicht. 

Um diese auch betreiben 
zu können, gibt es von 
der amerikanischen Fir¬ 
ma Navarone einen soge¬ 
nannten Grom-Buster, 
der aber in Deutschland 
nicht häufig beim Handel 
zu finden ist, da hierzu¬ 
lande nicht, mehr sehr 
viele dieser Konsolen ver¬ 
kauft wurden. Vom TI 
99/4A gibt es eine ganze 
Menge verschiedener 
Versionen, die sich aber 
nur im Betriebssystem 
unterscheiden, vom Be¬ 
nutzer wird das aber aller¬ 
höchst ens bei Assembler- 
Programmierung be¬ 
merkt (wer sich an die 
Hinweise im Assembler- 
Handbuch hält, hat aber 
keine Schwierigkeiten). 
Woran liegt das Ganze 




FRAGEN & ANTWORTEN 


aber nun: Damit nicht je¬ 
der einfach Software- 
Module für den TI 99 / 

4A anbieten konnte, hat 
Texas Instruments spe¬ 
zielle Bausteine, sog. 
Grom’s, in den TI 9914A 
eingebaut. Nur über die¬ 
se können Modul-Pro¬ 
gramme ausgeführt wer¬ 
den. Nun war aber eine 
ganze Weile in dem Be¬ 
triebssystem auch eine 
Abfrage nach Program¬ 
men im normalen Rom 
(Fehler von TI oder Ab¬ 
sicht eines cleveren Pro¬ 
grammierers? ). Dies hat 
Texas Instruments dann 
später beseitigt (sehr spät, 
erst kurz vor der Produk¬ 
tionseinstellung). 


CALL LOAD OHNE 
SPEICHERER WEITE¬ 
RUNG? 


Gibt es eine Möglichkeit, 
die Befehle CALL LOAD 
und CALL INIT ohne 
Speichererweiterung zu 
nutzen? Vielleicht mit 
Hilfe einer kleinen Schal¬ 
tung? 

Michael Buresch 
Elmshorn 

CALL INIT und CALL 
LOAD stehen Ihnen beim 
Minimemory auch ohne, 
zusätzliche Speichererwei¬ 
terung zur Verfügung. 

Im Extended-Basic benö¬ 
tigen Sie eine 32K-ErweU 
terung (24K-Erweiterung 
reicht auch, was aber we¬ 
niger bekannt ist), da das 
Modul das Vorhanden¬ 
sein dieser Speicher er Wei¬ 
terung ab fragt. Ebenfalls 
möglich sind Hardware- 
Schaltungen, die eine 
Speichererweiterung Vor¬ 
täuschen, wie z.B. der 
Mini-Assembler der Firma 
Radix. Mit einer einfa¬ 
chen Schaltung ist es ei¬ 
gentlich nicht getan, da 
es nahezu alles beinhal¬ 
ten muß, was eine volle 
Erweiterung ausmacht. 
Eine dynamische Speicher¬ 
erweiterung haben wir in 
der Ausgabe 4/85 vor ge¬ 
stellt, ein anderer Bauvor¬ 
schlag befindet sich der¬ 
zeit in der Erprobung, wo¬ 
bei aber der Preissturz bei 
den käuflichen Erweite¬ 
rn}! gen momentan den 
Selbstbau nicht mehr sehr 
sinnvoll erscheinen läßt. 


LAMPE DES DISK¬ 
CONTROLLERS 
FLACKERT 


Wenn ich mit meinem 
TI 99/4A nicht mit Ex- 
tended Basic, sondern im 
TI-Basic oder auch zum 
Beispiel mit dem Modul 
Datenverwaltung und 
Analyse arbeite, flackert 
das Licht am Disk-Con¬ 
troller sehr oft. Beim Ex- 
tended Basic ist dieser 
Vorgang nicht zu beob¬ 
achten. Ist dies normal? 
Tim Nebgen 
Frankfurt 


häufig zuerst die Periphe¬ 
riegeräte und dann die 
Groms in den Modulen 
und der Konsole abge¬ 
sucht. Beim Suchen wird 
jedesmal das Lämpchen 
des Con trollers einge¬ 
schaltet (die Lampe der 
RS232-Karte ist übrigens 
anders geschaltet und 
flackert deshalb nicht). 
Das Extended Basic be¬ 
sitzt viele Unterprogram¬ 
me, die das TI-Basic auch 
besitzt. Damit es hier 
beim Programmablauf kei¬ 
ne Kollisionen gibt, sucht 
das Extended Basic auf 
andere Art seine Unter- 



Das Flackern des Disk- 
Controller-Lämpchens bei 
TI-Basic oder Modul ist 
völlig normal. Das Be¬ 
triebssystem des TI 99/ 
4A beinhaltet eine Routi¬ 
ne, die Unterprogramme 
und Peripherie-Software 
sucht (für Assembler- 
Programmierer: ein erwei¬ 
tertes DSRLNK). Im TI- 
Basic oder vielen Modu¬ 
len, welche ja recht häu¬ 
fig Unterprogramme nut¬ 
zen, werden entsprechend 


Programme und so flak- 
kert das Lämpchen nicht 
mehr. 


COMPUTER¬ 

CHINESISCH 


Mich würde eine Frage 
sehr interessieren: Was be¬ 
deuten VDP, CRU, VDP- 
RAM, CPU-RAM im Zu¬ 
sammenhang mit dem 
Mini-Memory. Als weite¬ 
res lassen mich CALL 


POKEV, CALL PEEKV 
im Mini-Memory und das 
CALL PEEK im Extended 
Basic im unklaren. Was er¬ 
reicht man mit diesen An¬ 
weisungen genau und wie 
kann man sie anwenden? 
Alfons Rabin 
8000 München 21 

Die von Ihnen verwende¬ 
ten Kürzel finden beim 
TI 99/4A allgemein Ver¬ 
wendung, auch unabhän¬ 
gig vom Mini-Memory. 

VDP bedeutet Video- 
Display Prozessor. Das ist 
der Baustein, der für die 
Bildschirmdarstellung 
verantwortlich ist. CRU 
ist die Communication 
Register Unit, eine be¬ 
sondere serielle Schnitt¬ 
stelle im Prozessor des 
TI 99/4A, dem TMS 9900. 
Im 99/4A wird diese be¬ 
nutzt, um diverse Peri¬ 
pheriegeräte anzuspre¬ 
chen. VDP-RAM ist der 
Schreib-/Lesespeicher, 
der vom VDP verwaltet 
wird und CPU-RAM ist 
der Speicher, auf den der 
Prozessor (CPU) direkt 
zugreifen kann. Nur im 
CPU-RAM können Sie 
Maschinenprogramme aus¬ 
führen. Mit PEEK und 
PO KE (bzw. LOAD) kön¬ 
nen Sie den Inhalt be¬ 
stimmter Speicherstellen 
lesen bzw. verändern. 

Das V dabei bedeutet, 
daß diese Befehle für das 
VDP-RAM gelten. Auf 
die Anwendung werden 
wir immer wieder in der 
TI-REVUE zurückkom¬ 
men. 


SCHLECHTE 

ERFAHRUNGEN 


Seit Erscheinen des ersten 
Heftes der TI-REVUE bin 
ich dabei. Ich finde die 
Zeitschrift, den günsti¬ 
gen Kassettenservice so¬ 
wie die Gratisanzeigen 
echt super. Möchte aber 
bei dieser Gelegenheit 
auch auf die schwarzen 
Schafe hinweisen, die man 
sich mit dem Aufgeben ei¬ 
ner Annonce in Ihrer Bör¬ 
se einhandeln kann. In 
der Ausgabe 5/85 hatte 
ich eine Anzeige, in der 
ich meine Spielmodule 
(unter anderem Parsec für 
DM 40,—) anbot. Schon 
ein paar Tage später mel- 
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dete sich ein junger Mann, hatte ich mit Tl-Usern 
der sich für das Parsec- nur gute Erfahrung ge- 
Modul interessierte. Er macht, 

wurde mit meiner Frau Martin Mayer 

handelseinig — Parsec für Schwalmtal 

DM 40,-sowie von 

seiner Seite Zusendung Kommentar überflüssig! 

eines Schecks, ebenso 

senden wir das Modul ab. - 

Nach knapp einer Woche STATISTIK-MODUL 

kam der Scheck — 25,- FEHLERHAFT 

DM. Ein neuer Anruf bei - 

der bekannten Telefon- Bei dem oben erwähnten 
nummer brachte nichts. Modul sind Datensätze 

Nachdem wir die richtige einzugeben, wobei jeweils 
Telefonnummer (Aus- entsprechende Werte do- 

kunft) hatten, ließ sich kumentiert werden, 

der Käufer zuerst verleug- Gleichgültig wieviele Da¬ 
nen. Bei einem weiteren tensätze erlaubt waren, 
Anruf wurde meine Frau das Modul verarbeitet 
unflätig beschimpft. Auf bei den Rechenvorgängen 

mein restliches Geld war- „Korrelation und Regres¬ 

te ich heute noch. Des- sion“ immer nur vierzig, 
halb warne ich alle, die wenn mehr als vierzig ein¬ 
ein Gebrauchtteil verkau- gegeben waren. Dabei ist 
fen wollen, vor solchen nicht klar, ob es die er- 
Zeitgenossen. Für mich - sten vierzig, die letzten 
ist es eine Lehre und ich oder irgendwelche in be- 
werde in Zukunft meine liebiger Reihenfolge 

Sachen nur noch per nimmt. Bei allen anderen 

Nachnahme versenden. statistischen Verfahren, 

Eigentlich schade, bis jetzt die das Modul erlaubt, 


werden alle eingegebenen reichte uns die Anfrage 
Datensätze verwandt. nach einem Midi-Inter- 

Meines Erachtens handelt face für den TI 99/4A. 
es sich hier um einen in- Uns ist bisher ein solches 
temen Programmierfehler, nicht bekannt. Dennoch 
Schriftliche Nachfrage möchten wir "diejenigen 

bei Texas Instruments er- Leser bitten, die hier wei- 
gab bisher nur Schweigen, terhelfen können, uns zu 
Gibt es vielleicht eine be- schreiben. 

sondere Prüfmöglichkeit - 

für dieses Modul oder gibt CLUBGRUNDUNG 

es Anwender, die die glei-- 

chen Erfahrungen ge- Hallo Tl-User im Groß¬ 
macht haben? raum Hanau! 

Dr. med. Dieter Wolff Zwei begeisterte Fans des 

Rotenburg TI 99/4A aus Bruchköbel 

bei Hanau versuchen ver- 
Von einer Prüfmöglichkeit zweifelt einen Tl-Club zu 
des Statistik-Moduls ist gründen. 

uns nichts bekannt, auch Bis jetzt hapert’s aber 
können wir die spezielle noch mit Kontaktadres- 

Frage nicht beantworten, sen, obwohl die TI-REVUE 
Deshalb wollen wir sie im Hanauer Raum weg- 

hier an unsere Leser wei- geht wie warme Semmeln. 

tergeben. Wer kann also Wenn Ihr Interesse habt, 
helfen? zusammen mit den zwei 

Usern aus Bruchköbel ei- 

- 7 -nen Club zu gründen, 

MIDI-INTERFACE dann meldet Euch bitte 

AM TI 99/4A bei: Michael Rattelmüller, 

- August-Bebelstraße 11, 

Über das Lesertelefon er- D-6454 Bruchköbel 1. 


Farbfernseher als Monitor 


abgeschirmten Stereo- 
Kabels mit dem Fernseher 


Jeder kennt das leidige 
Thema: Nach mehreren 
Stunden Laufzeit läßt die 
Bildqualität nach. Das 
liegt daran, daß sich der 
TV-Modulator erwärmt 
und sich verstimmt. 


einen Emitterfolger, um 
es zu entkoppeln. Die 
kleine Platine hat ohne 
weiteres noch im Gehäu¬ 
se Platz. Ich bohrte zwei 
Löcher in die Platine, 
nahm zwei M3 Senkschrau¬ 


schaltung wäre noch fol¬ 
gendes zu sagen: 

1. Der Transistor ist nicht 
kritisch, es muß nur ein 
NF-NPN Typ sein. 

BC 108 o.ä. 

2. Auf die Polarität der 


verbunden. Fernsehseitig 
wird das Ganze mit der 
Video- oder Scartbuchse . 
mittels passendem Stecker 
verbunden. 

Falls der eine oder andere 
noch ein älteres Femseh- 



Deshalb kam ich zu der 
Überlegung, meinen TV- 
Modulator zu ergänzen. 
Denn im Modulator muß 
ja das aufbereitete Farb- 
signal bereits vorhanden 
sein, bevor es auf den HF- 
Träger aufmoduliert wird. 
Dort zapfte ich das Signal 
an und schaltete es auf 


ben, klemmte die Platine 
zwischen 2 Muttern und 
klebte das Ganze mit den 
Senkköpfen und UHU- 
Plus auf die vorhandene 
Platine (siehe Zeichnung) 
So kann man jederzeit 
durch Lösen der oberen 
Muttern die Platine ent¬ 
fernen. Zu der Zusatz¬ 


Tantal-Elkos achten! 
Plusanschluß ist mit ei¬ 
nem + gekennzeichnet. 

3. Der Anschluß erfolgt 
wie auf der Zeichnung 
dargestellt. 

Stimseitig montierte ich 
noch eine 5pol. Dioden¬ 
buchse. Der zugehörige 
Stecker wird mittels eines 


gerät besitzt, kann man 
den PAL-Decoder entfer¬ 
nen und dört das Video- 
Signal einspeisen. Das ist 
natürlich nur etwas für 
Profis. 

Die Anschlußbelegung der 
Scart-Buchse ist wie folgt: 
'4= GND (.Masse) 

6= TON 
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8= + 12 V (Steuerlei¬ 
tung) wird zum inter¬ 
nen Ümschalten im 
.Fernseher von Bild¬ 
signal auf Computer¬ 
signal benötigt, wird 
automatisch beim 
Einschalten des 
Computers ausgeführt. 
20= Farbsignal 
21= GND (Masse) 

Die Anschlußbelegung der 
5pol. Diodenbuchse kann 
frei gewählt werden. 

Zum Schluß noch eine 
wichtige Bemerkung: 


Der HF-Ausgang am TV- 
Modulator muß mit einem 
68-Ohm-Widerstand abge¬ 
schlossen werden. Dazu 
nahm ich einen Femsehan- 
tennenstecker, lötete den 
68-Ohm-Widerstand an 
die beiden Lötfahnen, wo 
normal das Antennenka¬ 
bel angeschlossen wird 
und kann so durch Ent¬ 
fernen des Steckers und 
Einstecken des mitgelie¬ 
ferten TV-Kabels schnell 
wieder Umrüsten. 

Josef Schillinger 


mieren. Man benötigt zur 
exakten Zeitmessung al¬ 
so entweder das EX-Basic, 
um die Adresse 33657, 
den VDP-Interupttimer, 
zu peeken, oder man baut 
einen externen Taktgene¬ 
rator ein, der etwa über 
den Joystick-Port abzu¬ 
fragen wäre. B. Gopfert 

DAS BETRIEBS- 
SYSTEM ÜBERLISTET 

Auf unseren kurzen Bei¬ 


wohl etwas nicht stimme. 
Mit folgender Zeile bleibt 
der Rechner in der Einga¬ 
bezeile hängen und piept 
“falsche Eingabe”, unab¬ 
hängig davon, welche Taste 
man drückt: 

10FOR 1=1 TO 4 :: 
ACCEPT AT (I,I+1):A$ 
(I+I/2) :: NEXTX 
Merkwürdigerweise läßt 
sich der Fehler (manch¬ 
mal!) durch Überschrei¬ 
ben der Zeile im Editier¬ 
modus beheben. 


trag in der TI-REVUE Die beiden letzten Hin- 
6/85 erhielten wir ein paar weise für heute stammen 
neue Hinweise. Zu dem von Frank Becker: 


GARBAGE COLLECTION 
VERHINDERT PRÄZISE 
SCHLEIFENGESTEUER¬ 
TE UHR 

Beim Versuch, die Re¬ 
chengeschwindigkeit des 
TI-99 für ein schleifenge¬ 
steuertes Programm zu 
ermitteln, zeigte sich ein 
merkwürdiger Effekt: 

Wenn man folgendes 
Programm 
10 1=1 + 1 
20 PRINT I (1) 

30 GOTO 10 
.RUN 

laufen läßt, addiert der TI 
ganz normal hoch, um 
dann bei 1732 kurz zu 
stoppen. Danach rechnet 
er wie gewohnt weiter, 
hält dann bei 3341 ;4950 
und so weiter, noch ein¬ 
mal. 

Wenn man die Abstände • 
zwischen den Stoppstel- ' 
len ansieht, drängt sich 
der Verdacht auf, daß der 
Abstand zwischen zwei 
Stopps von der Anzahl 
der auf dem Bildschirm 
ausgegebenen Druckstel¬ 
len abhängt. 

Um das herauszufinden, 
ließ ich folgendes Pro¬ 
gramm laufen: 

10 1=1000 
20 1 = 1+1 ( 2 ) 

30 PRINT I 
40 GOTO 20 
Hier lagen die Stopps bei: 
2608;4216:5824:7432; , 

9040;10553;12030: und 
so weiter. 

Die Abstände zwischen 
den einzelnen Stopps 
sind: 

(1) : 1732 ;1609 ;1609... 

(2) : 1608;1608;1608... 

Als nächstes interessierte 
mich, ob die Zeiten zwi¬ 
schen zwei Stopps kon¬ 
stant sind. 


„Umschalten“ vom Exten- Geben Sie folgendes ein 
Bei Programm (1) lag der ded Basic auf das TI-Basic (X-Basic notwendig) und 

Mittelwert bei 331.4 sei aber noch angefügt, listen Sie es dann per 

(±0.1) sek., (2) hieit nach daß dies natürlich nur oh- Funt’n X: 

309.8 (±0. i) sek. ne Speichererweiterung 1! 

Die Zeit ist also von Pro- geht. Ein Basic-Programm, (Nach dem Ausrufezei- 

gramm zu Programm ver- welches unter Extended chen müssen Ctrl-Zei- 

schieden. Bei (1) wurden Basic in der Speicherer- chen“ stehen, z.B. Ctrl U 

9x1+90x2+900x3+732= 

5817 Stellen ausgedruckt, 
bei (2) waren es 1608x4= 

6432. 

Das heißt also, je mehr 
Stellen der Computer 
druckt, um so früher 
stoppt er das Programm. 

Nähere Erkundigungen 
ergaben, daß man diesen 
Effekt „Garbage Collec¬ 
tion“, zu deutsch „Ab¬ 
fall-Beseitigung“, nennt. 

Worum es sich dabei han¬ 
delt, läßt sich leicht er¬ 
klären: Bei verschiedenen 
Befehlen, PRINT, OPEN, 

INPUT und dergleichen, 
bildet der Computer Hilfs¬ 
strings, die Speicherplatz 
belegen. Sobald der hier¬ 
für freie RAM-Bereich 



vollgeschrieben ist, sor¬ 
tiert das Betriebssystem 
alle nicht mehr benötigten 
Strings aus. Beim TI 99/ 
4A kann dieser Vorgang 
bis zu 2 Sekunden dauern, 
womit er deutlich schnel¬ 
ler als viele andere Ma¬ 
schinen ist. 

Die Zeitdauer, bis es zur 
Garbage Collection 
kommt, hängt also so¬ 
wohl vom freien Speicher¬ 
platz und damit von der 
Länge des Programms, 
als auch von der Anzahl 
der ausgeführten State¬ 
ments, die zur Bildung 
von Hilfsstrings führen, 
sowie von der Länge die¬ 
ser Strings ab. 

Dadurch wird es praktisch 
unmöglich, auf dem TI 99/ 
4A eine schleifenzeitge¬ 
steuerte Uhr zu program¬ 


weiterung abgelegt ist, 
wird vom TI-Basic niemals 
gefunden, da das TI-Basic 
nicht auf die Erweiterung 
zugreifen kann. 

Thorsten Rauer aus Bad 
Salzufeln übermittelte uns 
einen Trick, wie man den 
Computer auch im TI- 
Basic zum Abstürzen 
bringen kann, was sonst ja 
nicht möglich ist. Gekop¬ 
pelt mit einem Passwort 
oder ähnlichem ist damit 
leicht ein Schutz der eige¬ 
nen Daten möglich. Der 
Befehl lautet: 

CALL 

KEY(0,K,“ .,. ...“) 

Von Jürgen Heinzerling 
stammt der Hinweis, daß 
im Extended Basic mit 
dem Befehl ACCEPT AT 


bis es piept). Jetzt listen 
und kräftig die Leertaste 
drücken. Nun erscheinen 
nach und nach fremde 
Zeichen, neue Grau-Ab¬ 
stufungen auf dem Bild¬ 
schirm. Manchmal auch 
Sprites. w 

Bei einigen Bildern stürzt 
der TI auch ganz ab. 

Gibt man in Extended 
Basic folgendes Programm 

1 CALL SCREEN(2) 

2 CALL SCREEN(3) 

3 GOTO 1 

ein, läuft ein dicker 
schwarzer Balken am 
Schirm lang. Durch Än¬ 
dern der Farbwerte än¬ 
dert sich die Geschwindig¬ 
keit. Drückt man noch die 
Fct’n-Taste, ist der Balken 
noch flotter. -= 
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i^B ^ B -M . — — - —-Leute, die Computer 

Elektronen °“s n 

■ warum der Lüfte 

mAhnon Akco 

I I Meine wiederholt 

. ^ ^ Computer derzeit i 

a Automobile in der 

gerauscn 

los - aber Lüfter 
stören die 

Ruhe 

Tips für Tl-User, 

die auf 
Abhilfe 
sinnen 


Leute, die Computer entwickeln, sind wohl Burschen mit hartgesottenen 
Ohren wie Disko-Fans — oder sie benutzen ihre eigenen Produkte 
nicht stundenlang selbst. Anders ist es mir nicht erklärbar, 
warum der Lüfter im Computerkasten so laut rauschen muß wie 
„Airconditioning“ in amerikanischen Motels. 

Meine wiederholt geäußerte Meinung, daß sich die PC- und Heim- 
Computer derzeit in einem technischen Reifestadium befinden wie es 
Automobile in den zwanziger Jahren hatten, wird wohl erst von den 
Modellen der „nächsten Generation“ widerlegt. 


Den Lüfter des Computers braucht 
man nur das Langsamlaufen zu 
lehren — schon ist er leiser! Also, 
falls auch Sie, lieber Leser, so 
lärmempfindlich sind wie ich, su¬ 
chen Sie sich einen Käufer für den 
lauten Drucker (es gibt da disco¬ 
ertaubte Twens). Und für den Lüf¬ 
ter brauchen Sie einen Fachmann, 
der einen Kondensator in die Zu¬ 
leitung schaltet. Wer von elektri¬ 
schen Dingen etwas versteht, kann 
es auch selber machen. 

Der Lüfter ist ja meist nur für den 
Stromversorgungsteil nötig und 
weil Versuche, ihn richtig zu be- • 
messen, recht langwierig sind (zu¬ 
dem Elektroniker sich um Strö¬ 
mungstechnik ohnehin nicht küm¬ 
mern), wird von den Computerher- 
stellem sicherheitshalber ein star¬ 
ker Lüfter genommen (der ja kaum 
teurer ist als ein schwächerer). 
Wenn der Lüfter wenigstens einen 
Gleichstrommotor hätte, dessen 
Drehzahl leicht einstellbar zu ma¬ 
chen ist, nein, mit Spaltpolmotor 
sind Lüfter am billigsten — und 
(eigentlich) in der Drehzahl nicht 


veränderbar. Zum Glück für das 
Beruhigungsvorhaben bleibt die 
Last bei Lüftern ja immer gleich 
und Anlaufhilfe kann vorgesehen 
werden, so ist es dennoch technisch 
möglich, die Drehzahl zu verrin¬ 
gern. 

KONDENSATOR MINDERT 
LÜFTERGERÄUSCH 

Wie es gemacht wird, soll hier ge¬ 
zeigt werden. Allerdings gibt es 
kein Rezept mit fertigen Daten, 
also muß probiert werden. Die 
grundsätzliche Schaltung und eini¬ 
ge Tips zeigen die Abbildungen. 
Wichtig ist der Schalter, er dient 
als „Starter“ und mit ihm kann die 
„normale“ Drehzahl jederzeit 
wieder eingeschaltet werden. Da¬ 
zu eignet sich ein Druckschalter, 
wie er bei Nachttischleuchten üb¬ 
lich ist. Der Schalter und die weite¬ 
ren Teile sollten in ein Kunststoff¬ 
kästchen eingebaut werden, da im 
Inneren der Geräte kaum Platz zu 
finden ist. Das Kästchen ist dann 
an beliebiger Stelle außen am Com¬ 


puterkasten zu befestigen, zum 
Lüfter führen lediglich zwei Leitun¬ 
gen. 

Der Drehzahlverringerungs-Konden- 
sator muß „ungepolt“, also ein 
„Folienkondensator“ sein. Für 
120V- oder 220V-Motoren wird 
seine Kapazität meist zwischen 0,5 
und 2 Mikrofarad liegen müssen. 

Im Elektronik-Laden kauft man 
vier 1 -Mikrofarad-Kondensatoren 
(100—250V) mit axialen Drahten¬ 
den. Mit Lüsterklemmen lassen sich 
diese Kondensatoren parallel und 

DAS GEHT GANZ OHNE 
LÖTKOLBEN _ 

in Reihe zusammenschalten und 
damit ist der passende Kapazitäts¬ 
wert herauszuprobieren. Das geht 
ganz ohne Lötkolben.- 
Die Drehzahl bestimmt man vor¬ 
erst einmal nach Gehör, also danach, 
welche Lautstärke man gerade noch 
nicht als lästig empfindet. Es kann 
sein, daß der Lüfter dann beim Ein- 
schalten des Computers nicht von 
allein anläuft. Aber da ist ja der 
Lüfter-Schalter, stand er noch auf 
„langsam“, dann genügt zweimaliger 
Knopfdruck, um den Lauf anzure¬ 
gen. Wenn der Motor erst mal läuft, 
läuft er auch weiter, nachdem der 
Kondensator wirksam wird und die 
Drehzahl herabsetzt. 

Bei den Arbeiten und beim Einbau 
ist die elektrische Sicherheit zu be¬ 
achten, immerhin laufen die meisten 
Lüfter direkt an 220V! Wenn alles 
wieder zusammengebaut ist, hängt 
man ein Thermometer vor die Öff¬ 
nung, aus der die erwärmte Luft 
austritt. Wärmer als 35 Grad Cel¬ 
sius sollte die Abluft nicht werden. 
Wird sie es, so muß die Drehzahl 
des Lüfters vergrößert werden. Bei 
der Peripheriebox des TI99/4A ist 
es empfehlenswert, dem Luftstrom 
freie Bahn zu schaffen, indem die 
engen Ausströmlöcher des Lüfters 
erweitert werden. Engstellen und 
scharfe Kanten im Luftstrom sind 
die eigentlichen Geräuschquellen, 
die mit steigender Luftgeschwin¬ 
digkeit immer lauter werden. Daher 
sollte man die Luftlöcher an den 
ungenutzten Steckplätzen mit Papp¬ 
streifen und Klebeband verschließen. 

Heinz Laass 
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PRINZIP: 


Schalter 


Lüfter¬ 

motor 


A'-LB 'AC " D 1 E 



'je1(jF 


PF 

Imit 

2mit 

■Imiti 

0,5 

A 

C 


0,66 

B 

D 

A mit C 

0,75 A+ C 

E 

B mit D 

1 

A 

B 


1,3 

A+E 

B 


1,5 

A+D 

B 


2 

A+C 

B 



PRAXIS: . Kondensatoren 

f — 

A 


z.B. 


Lüsterklemme 



iyF 


0 A 0 
0 B 0 
0 C 0 
0 D 0 


E 


v. Netz 


Schalter 
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Zwar nicht billig, aber eine 
erwägenswerte Alternative: CC 40 

In diesem Jahr stellte Texas Instruments auf der Messe in 
Hannover einen kleinen Computer mit dem Namen Compact Computer 40 
vor. Um es gleich vorweg zu nehmen: Dieses Gerät ist auf gar 
keinen JF all ein „Nachfolger“ des TI 99/4A. 

Mit einer Größe von 23,4x14,5 cm (Grundfläche etwas größer als AS) 
ist der CC 40 vielmehr zwischen den Taschen- und den Handheld- 
Computern einzureihen. Texas Instruments setzt damit auf eine Größe, in 
der bisher kaum Geräte auf dem Markt sind. 


Klappe, mit der der CC 40 zum 
Betrieb etwas geneigt aufgestellt 
werden kann. 

Im Betriebssystem des CC 40 einge¬ 
baut ist ein recht komfortabler 
Debugger/Monitor und die Pro¬ 
grammiersprache BASIC. Und letz¬ 
tere ist auch ein großer Pluspunkt 
des CC 40: Das Basic entspricht 
einem erweiterten Extended Basic 
des TI 99/4A. Viele Befehle finden 
sich unverändert im CC 40 wieder, 
so daß hier auf ausführliche Erläu¬ 
terungen verzichtet werden kann. 

IF THEN ELSE und PRINT USING 
sind bei dem batteriebetriebenen 
Kleincomputern ja nicht überall üb¬ 
lich. Aber auch Unterprogramme 
mit lokalen Variablen können pro¬ 
grammiert werden. Dabei können 
die Werte dieser lokalen Variablen 
während des Programmablaufes er¬ 
halten werden oder auch nach je¬ 
dem Subprogrammablauf wieder ge¬ 
löscht werden. Das erspart Speicher¬ 
platz, macht aber die Programmaus- 


EXAKTER RECHNER 

führung langsamer. Damit sind wir 
bei der Geschwindigkeit. Die Pro¬ 
grammausführung ist insbesondere 
bei Berechnungen etwas langsamer 
als beim TI 99/4A. Dabei wirkt sich 
eben der 8-Bit-Prozessor des CC 40, 
ein TMS 70C40, zusammen mit der 
erstaunlichen Rechengenauigkeit 
aus. Sowohl im Direktmodus wie 
im Basic kann der CC 40 mit der Ge¬ 
nauigkeit von Taschenrechnern mit¬ 
halten. Wie der TI 99/4A bietet der 
CC 40 hier also eine Leistung, die 
meist nur bei weit teureren Compu¬ 
tern zu finden ist. 

In jeder Basiczeile sind Mehrfach¬ 
anweisungen möglich. Dabei ist die 
Zeile auf 80 Eingabezeichen be¬ 
schränkt. Die Anzeige auf dem 28- 
stelligen Display wird dabei seitlich 
gescrollt. Markierungen auf der An¬ 
zeige machen deutlich, daß die Zei¬ 
le länger ist als die eigentlich darge¬ 
stellten Zeichen. Bei der Eingabe 
können häufig verwendete Befehle 
über einen einzigen Tastendruck 
eingegeben werden. Selbstverständ¬ 
lich enthält das Basic auch besonde¬ 
re Anweisungen, die Print-Anwei¬ 
sungen auch lesbar machen. So 
kann man mit PAUSE definieren, 
ob nach jeder Print-Anweisung auf 
einen Tastendruck oder nur eine 
bestimmte Zeit gewartet wird. 
Nützlich ist auch, daß die Fehler¬ 
meldungen nicht nur in Englisch 
angezeigt werden, mit CALL 
GATLANG(l) „spricht“ der CC 40 
Deutsch. Das beiliegende Handbuch 
ist aber dennoch in Englisch. 

Bei der schon erwähnten Rechen- 


Der neue „Kleine" von Texas Instruments 

Der CC 40 besitzt ein graues Kunst- 
stoff-/Metallgehäuse. Die Tastatur 
ist mit Hartkunststoff-Tasten aus¬ 
gerüstet, sonst aber das, was land¬ 
läufig als „Gummitastatur“ bezeich¬ 
net wird. Neben einer normalen 
QWERTY-Tastatur ist noch ein 
20-Tasten-Block zur Eingabe der 
Zahlen und diverser Rechenopera¬ 
tionen vorhanden. Bedingt durch 
die Größe des CC 40 ist die Tasta¬ 
tur natürlich etwas „feinfühlig“ zu 
betätigen. Dennoch, es ist keine 


„Fieselei“, bis man die richtige 
Taste gefunden hat. Insofern ist die 
Entscheidung von Texas Instru¬ 
ments, den CC 40 nicht als Taschen¬ 
computer auszulegen, nur zu be¬ 
grüßen. Zur Anzeige dient ein 28- 
stelliges, einzeiliges LCD-Display. 
Anschlüsse für ein Netzteil, der 
„HEX-Bus“-Anschluß und ein 
Modulschacht sind weiter am Ge¬ 
häuse vorhanden. Der Batterie¬ 
kasten ist von unten leicht zugäng¬ 
lich. Hier befindet sich auch eine 
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PUTINE 


SELBER¬ 

MACHEN: 

Platine 
für den 
Eprommer 

des 

TI 99/4A 


genauigkeit lag es wohl nahe, dem 
CC 40 auch gewisse Taschenrech¬ 
ner-Fähigkeiten mitzugeben. Im 
Direktmodus läßt sich auch ganz 
einfach z.B. 11*4 eingeben. Wird 
dann die Enter-Taste gedrückt, er¬ 
scheint auf der Anzeige das Ergeb¬ 
nis. Das funktioniert mit allen 
mathematischen Funktionen und 
interessanterweise auch für Variable. 
Wurde vorher einmal z.B. A=2 ge¬ 
setzt und dann im Direktmodus A 
mit Enter eingegeben, so erscheint 
die 2 auf dem Bildschirm. 

Für diejenigen, die immer gleich an 
die Innereien eines Computers wol¬ 
len, ist der eingebaute Debugger/ 
Monitor sicher von Nutzen. Er er¬ 
laubt das Anzeigen, Ändern und 
Kopieren von Speicherinhalten, 
das Setzen von Breakpoints und die 
Einzelschrittausführung von Ma¬ 
schinenprogrammen. Allein schon 
durch das Vorhandensein dieses De¬ 
buggers, aber auch bedingt durch 
den inneren Aufbau, ist der CC 40 
eine wesentlich offenere Maschine 
für den Assemblerprogrammierer als 
der TI 99/4A, auch wenn es (noch?) 
kein Assembler-Modul gibt. Für 
diesen Bericht stand das Elektronik- 
Modul zur Verfügung. Es läßt sich 
dazu nur sagen, daß diese Software 
dem hohen Qualitätsstandard ent¬ 
spricht, den Texas Instruments 
schon bei der Software zum TI 99/ 

4A bot. 


AUSBAU BIS 34 KB 

Mit seiner Umwelt kann der CC 40 
über ein eingebautes HEX-Bus-Inter- 
face kommunizieren. Das bedingt 
also gesonderte Hardware. Hierfür 
gibt es einen Printer/Plotter und ei¬ 
nen 80-Zeichen-Drucker. Um den 
CC 40 auch sonst an die Computer¬ 
welt anzuschließen, steht ein RS- 
232-Interface zur Verfügung. Und 
zu guter Letzt braucht der CC 40 
natürlich auch einen Massenspei¬ 
cher. Hier gibt es eine Quick-Disk 
mit 64 kByte Kapazität pro Disket¬ 
tenseite. Diese Quick-Disk ist keine 
gewöhnliche Diskettenstation, son¬ 
dern benutzt spezielle 3”-Disket-- 
ten, auf die spiralförmig die Infor¬ 
mationen gespeichert werden. 
Ebenfalls wichtig für den Erfolg 
eines Computers ist die zur Verfü¬ 
gung stehende Software. Bisher 
sind ein Finanz-, Electronic-, Sta¬ 
tistik-, Mathe-, Spiele-Modul und 
ein sogenannter Memo-Prozessor 
erhältlich. Letzterer beinhaltet eine 
kleine Text Verarbeitung und die 
Software zur Datenfernübertragung. 
Einmalig aber in dieser Computer¬ 
klasse dürfte das PASCAL-Modul 


sein. Es stellt, wie sein Name schon 
sagt, die Programmiersprache PAS¬ 
CAL für den CC 40 zur Verfügung. 
Kommen wir also noch zur Tech¬ 
nik des CC 40. Der Prozessor wurde 
schon erwähnt. Weiter finden sich 
in dem Gerät einige spezielle C- 
Mos-Bausteine, die aber keine au¬ 
ßergewöhnlichen Funktionen über¬ 
nehmen, sondern nur zur Stromer¬ 
sparnis so speziell gestaltet wurden. 
In der Grundversion stehen 6Kbyte 
RAM (knapp über 5700 Bytes nutz¬ 
bar) zur Verfügung. Selbstverständ¬ 
lich für ein batteriebetriebenen Com¬ 
puter: Der Speicherinhalt bleibt 
auch beim Ausschalten erhalten. Die 
Frage nach dem Stromverbrauch 
kann hier nur unvollständig beant¬ 
wortet werden. Das Mustergerät ist 
nun schon 2 Monate im Einsatz und 
es ist immer noch der erste Batterie¬ 
satz im Gerät, der beim Einsatz zu¬ 
dem nicht einmal neu war. Durch 
einen internen Umbau läßt sich die 
Speicherkapazität auf 18 KByte er¬ 
höhen. Diesen Umbau können die 
Fachhändler vornehmen. Ebenfalls 
stehen noch RAM-Module zur Ver¬ 
fügung, damit ist ein Ausbau auf 
max. 34KByte möglich. 

Will man über den CC 40 ein Fazit 
ziehen, so ist bei den positiven 
Eindrücken an erster Stelle das sehr 
mächtige Basic und die hohe Re¬ 
chengenauigkeit zu nennen. Sehr 
günstig ist auch der geringe Strom¬ 
verbrauch. Negativ ist sicherlich die 
sehr kleine Anzeige zu beurteilen. 

Mit einem empfohlenen Verkaufs¬ 
preis von 598,- DM ist der CC 40 
auch nicht gerade sehr billig, im 
Hinblick auf die Leistungen aber 
auch nicht zu teuer. Für denjenigen, 
der einen leicht transportablen, netz¬ 
unabhängigen Computer sucht, ist 
er aber sicherlich eine gute Alterna¬ 
tive zu auf dem Markt vorhandenen 
Geräten. Ob er sich auf dem Markt 
durchsetzt, wird die Zukunft zei¬ 
gen, denn die Firma Texas Instru¬ 
ments hat ja auch noch gegen einen 
großen Vertrauensverlust zu kämp¬ 
fen, der in ihrem Verhalten bei der 
Produktionseinstellung des TI 99/ 

4A begründet ist. 

Heiner Martin 


Anmerkung d. Red.: Wir wollen in 
der TI-REVUE gerne auf alle Com¬ 
puter von Texas Instruments ein- 
gehen, allerdings muß dann bei Ih¬ 
nen, lieber Leser, auch Interesse da¬ 
für vorhanden sein. Deshalb schrei¬ 
ben Sie uns doch bitte, wenn Sie 
an weiteren Berichten über Zubehör 
und/oder Programmen für den 
CC 40 oder anderen TI-Typen Inter¬ 
esse haben. 


PLATINE FÜR DEN EPROMMER 


Zum leichteren Aufbau des Eprom- 
mers wurde eine Platine entworfen. 
Die Ausführung muß dabei doppel¬ 
seitig mit durchkontaktierten Boh¬ 
rungen sein. Das Layout (auf der 
nächsten Seite) muß dabei so auf 
die Platinenseite gelegt werden, daß 
das auf jeder Seite befindliche L 
seitenrichtig zu lesen ist. 

Die Bestückung ergibt sich aus dem 
Plan. Mehr gibt es dazu eigentlich 
nicht zu sagen, außer, daß die Löt¬ 
seife diejenige Seite ist, auf der der 
Schriftzug HM zu finden ist. Eben¬ 
falls darf man sich nicht durch die 
vielen zusätzlichen Bohrungen und 
einige Leiterbahnen, die scheinbar 
sinnlos in die Leere führen, täu¬ 
schen lassen. Ich konnte beim Ent¬ 
wurf der Versuchung nicht wider¬ 
stehen, hier noch einige zusätzliche 
Dinge vorzusehen, die aber noch 
nicht erprobt sind. So wie es im Be¬ 
stückungsplan eingezeichnet ist, 
arbeitet die Platine aber genauso 
wie die in der letzten Ausgabe an¬ 
gegebene Schaltung. 

Die Schaltung wurde nur in unwe¬ 
sentlichen Punkten verändert. 
Einmalig wurde der 74LS85 so be¬ 
schältet, daß die CRU-Adresse voll¬ 
ständig dekodiert wird. Zum An¬ 
deren wurde ein 74LS00 durch ein 
74LS04 ersetzt. Weiter wurde ein 
zusätzlicher Kondensator eingefügt, 
der einen automatischen Reset 
beim Einschalten der Versorgungs¬ 
spannung bewirkt, so daß auf den 
Reset-Taster auch verzichtet wer- _ 
den kann. Heiner Martin M 
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Bestückungsplan 






















































































































































































































TIPS & TRICKS 


DIE CASSETTE ALS bruch, leider die Beispiel- 
DATENSPEICHER Programme zu dem Be- 

-—-- rieht „Cassette als Da- 

In der letzten Ausgabe tenspeicher“. 

fehlten, bedingt durch Diese wollen wir hier 
einen Fehler beim Um- nachreichen: 

70 REM ******************** 

80 REM * LISTING1 * 

90 REM ******************** 

100 DIM N$<100),D$(100) 

110 Z=Z+1 

120 INPUT M NAME: ":N$(Z) 

130 IF N$<Z)="^ B THEN 160 
140 INPUT "DATUM: ":D$(Z) 

150 GOTO 110 

160 OPEN #1:"CS1", OUTPUT,INT 

ERNAL,FIXED 192 

170 FOR F=1 TO INT((Z+2)/4)* 

4 STEP 4 

180 PRINT #i:N$(F),D$(F),N$< 

F+l),DSU F + l),N*(F+2),D$(F + 2) 
,N$(E+3),D$(F+3) 

190 NEXT F 

200 PRINT #l:"EOF" 

210 CLOSE #1 
220 END 

70 REM ******************** 

80 REM * LISTING2 * 

90 REM ******************** 

100 DIM N$(100),D$(100) 

110 F=1 

120 OPEN #1: "CSl", INPUT ,INT 

ERNAL,FIXED 192 

130 INPUT #l:N*(F>,D$(F), 

140 IF N$(F)="EOF" THEN 180 
150 INPUT #l:N$(F+l),D$(F+1) 
,N$<F+2),D$(F+2),N$(F+3),D$( 

F + 3) 

160 F=F + 4 - 

170 GOTO 130 
180 CLOSE #1 
190 Z=Z+1 

200 IF (N$(Z)=" AAH )+(N$(Z)=". 
EOF")< >0 THEN 230 
210 PRINT N$(Z),D$(Z) 

220 GOTO 190 
230 END 


KASSETTENLADEVORGANG __ 

Liebe Leser 

in der Zeitschrift TI-REVUE haben wir den 
Anfang der Listings extra für Sie geändert, 
damit Sie auf einen Blick erkennen können, 
unter welchen Voraussetzungen das jeweilige 
Programm lauffähig ist. Fehlt im Kopfbild 
z.B. der Eintrag “Ext.-Basic Modul“ so ist 
das Programm in TI-Basic geschrieben und 
sollte auch ohne XBasic-Modul gefahren 
werden. Manche TI-Basic-Programme sind 


VERGRÖSSERTEN angehängt werden kann. 

AUSDRUCK IN EINER Mit ihr lassen sich Stan- 
8x8 MATRIX dardzeichen wie auch 

-selbstdefinierte Zeichen 

in einer 8x8-Zeichen- 

Bei diesem Programm- Matrix ohne Abhängig- 

Vorschlag in Extended keit des verwendeten 

Basic handelt es sich um Druckers (Nadel-, Typen¬ 
eine Druck-Routine, die rad- oder Tintenstift- 

sowohl allein lauffähig Drucker etc.) vergrößert 

ist als auch ohne große drucken. Ich benutze die- 
Schwierigkeiten als se Routine zum Drucken 

Unterprogramm an ein von Titel- bzw. Kopf¬ 
bestehendes Programm seiten. TW 

100 OPTION BASE 1 :: DIM C$( 

4),D*(10,2):: OPEN #i:"RS232 
,BA=9600.LF" 

110 CALL CLEAR-:: PRINT "ENT 
ER TEXT OR BLANK" :: INPUT A 
* 

120 A=LEN(A$):: IF A=0 THEN 
210 ELSE IE A >10 THEN 110 
130 B=41-4*A :: FOR 1=1 TO 1 
6 STEP 2 :: FOR J=i TO A :: 

CALL CHARPAT(ASC(SEG$(A$,J,1 
) ) . B*> 

140 m= l :: for K=I TO i+i :: 

C=ASC(SEG$(B$,K r l)):: IF c< 

=57 THEN D=C-48 ELSE D=C-55 
150 FOR L=4 TO 1 STEP -1 :: 
E=INT(D/2) 

160 IF E< D/2 THEN C$(L)=SEG$ 

(A$,J,1)ELSE C$(L)=" " 

170 D=E :: NEXT L :: D$(J,M) 
=C$(l)8<C$(2)& i C$(3)&C$(4) : : M 

=2 :: next K :: next j 

180 E4=D$(l,l)g<D$(l,2):: IF 
A=1 THEN 200 

190 FOR J = 2 TO A : : E$=E$£iD$ 

(J, 1)KD*(J,2) :: NEXT "J 

200 print #i:tab(BME* :: ne 

xt t :: goto 110 

210 CLOSE #1 :: CALL CLEAR : 

: END 


zwar auch über das Extended Basic Modul 
ladbar und laufen schneller ab, dafür müs¬ 
sen beim Programmieren aber einige Krite¬ 
rien unbedingt beachtet werden. Programm¬ 
autoren, die nicht im Besitz des XBasic- 
Moduls sind, kennen diese Kriterien oft 
nicht. Auch werden von uns TI-Basic-Pro¬ 
gramme nicht so umgeschrieben, daß sie 
auch unter XBasic laufen. Beachten Sie 
deshalb das Kopfbild der einzelnen Listings 
und stellen Ihre Konfiguration so zusam¬ 
men, wie es dort angegeben wurde, dann 
kann nichts schief gehen. 

Bekommen Sie nach dem Laden und Star¬ 
ten eines Programmes die Fehlermeldung 
“Bad Value in...”, ist dies meist ein siche¬ 
res Zeichen dafür, daß versucht wurde, ein 
TI-Basic-Programm für das Grundgerät 
mit dem XBasic-Modul laufen zu lassen. 
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TIPS & TRICKS 


CHAR-CHANGE II 

Auf den Beitrag von G. 
Kauntz in der letzten 
Ausgabe erhielten wir ei¬ 
ne ganze Reihe Lösungs¬ 
vorschläge, wie die Rou¬ 
tine auf ein Datenfeld 


von 9 Elementen zu op¬ 
timieren ist. Günther 
Rehm aus Mindelheim 
war der erste, der uns sei¬ 
ne Lösung mitteilte und 
so wollen wir hier diese 
veröffentlichen: 


100 REM******************** 

110 REM* * 

120 REM* Char-Change II * 

150 REM* , * 

210 REM*Beroetigte Geraste* 

220 REM* TI99/4A Konsole * 

230 REM* ' * 

290 REM******************** 

300 CALL CLEAR 
310 DIM C$<3) 

320 C*<0>="18040498FC7460A0" 
330 C$(5) = "081 A3E.0C0E0E4433" 
340 C*<7'="00403486BF7E3C36" 
350 CS(4)="00223E2A1C1C3600" ' 

360 CSC?> = "00.022161FD7E3C6C" 
370 CS(3)="1C227070307C5S10" 
330 CS(ö)="190E0F1C9S9C6000" 
390 CS (2) = " 9370F03S193906.00" 
400 CS (6) = " 30404f.-327E5C0C.0 A " 
410 CALL HCHAR(12,16,100) 

420 CALI. .JGYST (1, X,Y) 

430 U=X*3/4fY/4+4 

440 CALL CHAR ( 10.0, CS (W) ) 

450 GOTO 420 

PEEKS UND PDKES FÜR Bedingungen für das Lö- 


MINI-MEM UND 
EXTENDED BASIC 

Zum Artikel „Bildschirm¬ 
farbe festlegbar“ in der 
TI-REVUE 2/84 ist zu 
sagen, daß das dort Be¬ 
schriebene auch in TI- 
Basic mit dem Mini-Me¬ 
mory möglich ist. Das 
dort Vorgestellte muß wie 
folgt geändert werden: 


sehen dieser Farbände¬ 
rung wie beim Extended 
Basic. 

Nicht nur für das Mini- 
Mem gilt folgendes: 

Wenn eine Print-Routine 
mit einem Semikolon be¬ 
endet wurde, so kann 
man mittels CALL 
LOAD(—31873,X) die 
Spalte festlegen, bei der 
die nächste Print-Routine 


100 CALL SCREEN (2) 

110 FOR A=1 TO 16 
120 CALL COLOR(A,13,2) 


. 130 NEXT A 

140 CALL PQKEV 
150 CALL PEEK( 

Nach Eingabe des Befehls 
RUN und Drücken der 
Enter-Taste werden Bild- • 
schirm- und die Zeichen¬ 
satzfarbe geändert. Der 
CALL POKEV dient da¬ 
bei zur Farbänderung des 
Cursors. Der Computer 
erwartet jetzt ganz nor¬ 
mal Ihre Befehle. Es gel¬ 
ten übrigens die gleichen 


UNTERPROGRAMM 
ZUM DARSTELLEN 
VON TEXT _ 

Zu den in der Ausgabe 
3/85 veröffentlichten 6 
Unterprogrammen zum 
Darstellen eines Textes, 
möchte ich ein ergänzen¬ 
des vorstellen: Es läßt 
einen Text in beliebiger 
Zeile und Spalte, die na-' 
türlich innerhalb der zu¬ 
lässigen Grenzen liegen 
müssen, erscheinen und 


dann sozusagen „Pixel 
für Pixel“ verschwin¬ 
den, wobei von einem 
8x8 großen Charakter- 
feld jeweils eine Achter¬ 
reihe nach der anderen 
weggenommen wird. 
Nach Ausführen dieses 
Programms müssen gege¬ 
benenfalls mit CALL 
CHARSET die Definitio¬ 
nen für die Zeichen neu 
vorgenommen werden. 

Tim Nebgen 


32000 SUB VERTEX(A$ , Z,S) 

32010 DISPLAY AT<Z,S):A$ :: FOR. K = 1 
32020 Q=LEN<A$>:: IF Ü->23 THEN SUBE 
32030 FOR I=S TO 0+8+3 
32040 CAlrL"GGHAFKZ,I„A> : : CALL CHAR 
32050 C$~SEG$<Bt,1, 16~K*2 )&RPT$( M 0" 
32060 NEXT I :: NEXT K 
32070 SUBEND 


(783,193) 

-26622,A) 

in der Bildschirmzeile be¬ 
ginnt. Z.B.: 

100 PRINT A; 
110 A=A+1 
120 CALL LOAD 
130 GOTO 100 

bewirkt ein Hochzählen 
ohne dauerndem Scroll 
der Zeilen. 


Mit verschiedenen Peek’s 
kann man auch die Tasta¬ 
turabfrage verfeinern. 
Dabei muß jeweils vor 
dem Peek ein CALL KEY 
oder CALL JOYST durch¬ 
geführt werden. Ein CALL 
PEEK(—31801 ,A) ergibt 
für A folgende Werte: 

A=1 —Taste wurde ge¬ 
drückt 

A=2 Space-Taste 
A=4 Enter-Taste 
A=6 Joystick-Feuerknopf 
A=16 Fct’n in Verbindung 
mit einer anderen Taste 
A=32 Shift in Verbindung 
mit einer anderen Taste 
A=64 Ctrl in Verbindung 
mit einer anderen Taste 
Bei einem 

CALL PEEK(—31800, 
A,B,C) nach einem CALL 
KEY, erfaßt A den ge¬ 
samten, B nur den linken 
und C nur den rechten 
Tastaturbereich. Hierbei 
stimmen die erfaßten Wer¬ 
te nicht mit den ASCII- 
Codes überein und es 
wird auch nicht unter¬ 
schieden, ob nur die Taste 
A oder ob die Taste A in 
Verbindung mit einer an- 


(-31873,3) 


deren Taste gedrückt wur¬ 
de, was bei der Program¬ 
mierung von Spielen von 


Vorteil sein kann. 

Die Werte, die diese Ab¬ 
frage liefert, sind bei allen 
Tastaturmodi gleich, die 
Tasten, die erfaßt werden, 
sind jedoch vom Modus 
abhängig. Da bei einem 
CALL JOYST auch gleich¬ 
zeitig ein CALL KEY(1,...) 
durchgeführt wird, kann 
man wie folgt feststellen, 
ob die Feuertaste gedrückt 
war: CALL PEEK(-31800. 
A) oder CALL PEEK 
(—31799,A), wobei A den 
Wert 41 erhält, wenn die 
Taste Q oder die Feuer¬ 
taste gedrückt wurde. Will 
man nun ausschließen, daß 
die Taste Q gedrückt wur¬ 
de, so geschieht dies mit 
folgender Abfrage: 

CALL PEEK(—31801,A), 
wobei A nur dann den 
Wert 6 annimmt, wenn 
auch wirklich die Feuer¬ 
taste gedrückt wurde. 

Reinhold Frieling 
Anmerkung d. Red.: Bei 
der Festlegung der Bild¬ 
schirmfarbe wird eine sehr 
heiße Adresse verwendet: 
—26622 ist die Adresse 
zum Auslesen des Grom- 
Zählers. Bei einem Peek 
darauf wird die Adresse 
der Groms unvollständig 
verändert. Es kann daher 
durchaus sein, daß dieser 
Trick nicht auf allen 
Konsolen bzw. mit allen 
Mini-Memorys den ge¬ 
wünschten Erfolg hat. 



TIPS & TRICKS 


ES GEHT: 
SUBPROGRAMME 
AUCH VOR DEM 
HAUPTPROGRAMM 

Viele Leser haben sicher 
schon gemerkt, daß im 
Extended Basic beim 
Start eines Programms ei¬ 
gene erstellte Sub-Unter- 
programme vom TI 99/ 
4A unbedingt abgetastet 
werden müssen, da sonst 
der Computer mit der 
Fehlermeldung “Subpro¬ 
gramm not found“ ab¬ 
bricht. 


100 GOTO 120 :: CALL TON 

110 !@P- 

120 CALL TON 

130 END 

1000 SUB TON 

1010 CALL SOUND (2.00, 300,0) 
1020 SUBEND 


RUN-Fehlermeldung 
Subprogramm not found. 
Zudem kommt es noch, 
daß ein Sub-Unterpro- 
gramm immer am Schluß 
eines Programms stehen 
muß, da sonst die Fehler¬ 
meldung “Illegal after 
Subprogramm“ erscheint. 
Auch hierfür ein Beispiel: 


1000 SUB TON 

1010 CALL SOUND(200,300,0) 

1020 SUBEND 

1030 PRINT "ENDE” 

RUN-Fehlermeldung 
Illegal’after Subprogramm. 

Nun die Abhilfe: Ist ein 
Programm so aufgebaut, 
so darf offensichtlich das 
Unterprogramm am An¬ 
fang stehen, das heißt, 
das Programm läuft ohne 
Fehlermeldung richtig ab: 

100 GOTO 150 :: CALL TON :: 
! WEITERE RESERVIERUNGEN 
110 SUB TON 

120 CALL SOUND(200,300,0) 
130 SUBEND 
140 !@P- 

150 REN PROGRAMMANFANG 
160 CALL TON 
170 END 

Ich hoffe, damit einigen 
Usern geholfen zu haben. 

Tom Abrell 



UND NOCHEINMAL... _ . 

Im Gegensatz zu anderen User-Zeitschriften 
haben wir die Zeilenbreite der Listings auf 
28 Zeichen (Bildschirmformat) begrenzt 
und zusätzlich vermehrt auftretende Blanks 
(Leerzeichen) durch Punkte gekennzeichnet. 
Kommen in einem Print-, Display-, Input¬ 
oder Acceptbefehl mehr als 2 Blanks hinter¬ 
einander vor, wird das Listing beim Abtip¬ 
pen unübersichtlich, da sich diese Leerzei¬ 
chen nur schwer zählen lassen. Die Punkte 
sind also für Sie, liebe Leser, nur eine Zähl¬ 
hilfe und dürfen natürlich nicht mit abge- 
tippt werden. Einen beabsichtigten Punkt 
erkennt man daran, daß danach ein Leer¬ 
zeichen folgt. Mehr als zwei Punkte hinter¬ 
einander sind dann schon wieder Abtipphil¬ 
fen und nur zum Zählen der Blanks gedacht. 
Sollten wir auf Grund der Programmstruktur 
bei einem Listing eine Ausnahme machen 
müssen; manchmal kommt es ja auch vor, 
daß mehrere Punkte hintereinander für 
den Programmablauf notwendig sind; wer¬ 
den wir bei diesem Listing extra darauf 
au fmerksam machen. 

ÜBERLANGE ZEILEN düng“ nachsichtig zu be- 
IN DEN LISTINGS handeln. Zeilen, die mehr 

als 128 Charakter (Zei- 

Der TI/99A akzeptiert bei chen beinhalten, werden 
der Programmerstellung ganz normal abgetippt, 

oder dem Abtippen eines bis sich der Cursor 
Programmes generell 128 (Schreibmarkierung) am 

Zeichen pro Zeilennum- Ende der vierten Zeile 
mer, das sind genau 4 Zei- nicht mehr weiter bewe- 
len. Am Ende der vierten gen läßt. Wurde eine Ein- 
Zeile weigert sich der Cur- gäbe mit einem >”< 
sor (Schreibmarkierung) (Anführungszeichen) be- 

jedoch strikt, weiterzu- gönnen, muß dieser Satz 

schreiben und piepst är- jetzt provisorisch mit ei- 
gerlich, wenn dies trotz- nem abschließenden An¬ 
dern versucht wird. führungszeichen wieder ge- 

Durch einen kleinen schlossen werden. Danach 

Trick, der leider in keinem ist diese unvollständige 
Handbuch zu finden ist, Zeile durch Drücken der 
kann man die Zeilenlänge ENTER-Taste abzuschik- 
bis auf 255 Charakter ken. Mit FCTN und gleich- 
reichen) erhöhen. Sehr zeitig der Taste REDO 
viele Autoren wenden die- kann man die gleiche Zeile 
sen Trick bei ihren Pro- noch einmal auf den Bild¬ 
grammen an. Sei es, um schirm holen. Der Cursor 
einen Gedanken vollstän- steht dabei auf dem er¬ 
dig in eine Zeile zu brin- sten Zeichen dieser Zeile, 
gen, oder einfach nur, FCTN und die Pfeiltaste 
um Speicherplatz zu spa- (rechts) bringen die 
ren und damit Freiraum Schreibmarkierung nun 

für das Programm und die wieder an die Stelle der 
Daten zu gewinnen. Zeile, an der die Eingabe 

Da dieser Trick leider zuvor unterbrochen wur- 
noch immer nicht bis in de. Ein eventuell gesetztes, 
die hinterste Ecke provisorisches Anführungs- 

Deutschlands vorgedrun- Zeichen ist jetzt wieder zu 
gen ist, und TI-Anfänger entfernen und siehe da, 
beim Abtippen dieser über- der Cursor läßt sich ohne 
langen Zeilen schier der ärgerlichen Piepston über 

Verzweiflung nahe sind, das Ende der vierten Zeile 
haben wir uns entschlos- hinaus führen und der an- 
sen, in jeder Ausgabe der gefangene Text kann nun 
TI-REVUE darauf hinzu- ohne Schwierigkeiten wei- 
weisen. Alle Insider, de- ter eingegeben werden, 
nen dieser Trick schon be- Die Obergrenze hat sich 
kannt ist, bitten wir im nun von 128 Charaktem 
Interesse der Anfänger, bis auf maximal 255 Cha- 
diese „Platzverschwen- rakter verschoben. 
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TEST 


DE FENDER _ • 

Defender ist ein Spiel, das vom 
Spieler volle Aufmerksamkeit und 
schnelles Reaktionsvermögen ver¬ 
langt. Zu Beginn des Spieles vertei¬ 
digen Sie einen Planeten, auf dem 
sich 10 Humanoids befinden. Die 
feindlichen Angreifer wollen diese 
Humanoids entführen und das müs¬ 
sen Sie verhindern. Alle zugleich 
können Sie jedoch nicht schützen, 
da sie auf der gesamten Planeten¬ 
oberfläche verteilt sind. Zur besse¬ 
ren Übersicht sehen Sie im oberen 
Bildschirmteil — im Scanner - je¬ 
doch nicht nur den Teil der Plane¬ 
tenoberfläche, in dem Sie sich ge¬ 
rade befinden, sondern einen we¬ 
sentlich größeren Ausschnitt der 
Plantenoberfläche. 

Wenn ein Humanoid von feindli¬ 
chen Angreifern - dqn Landers - 
gekidnappt wurde, schreit er um 
Hilfe und Sie müssen ihn schnell¬ 
stens retten, denn sonst ist er ver¬ 
loren. Es gibt 2 Möglichkeiten, ei¬ 
nen Humanoid zu retten: entwe¬ 
der das feindliche Raumschiff 
zerstören und den Humanoid zur 
Oberfläche fallen zu lassen oder 
das Raumschiff zu zerstören, den 
Humanoid ins eigene Raumschiff 
einzuladen und zur Planetenober¬ 
fläche zurückzubringen. Daß die 
2. Möglichkeit mehr Punkte er¬ 
gibt, versteht sich von selbst. 
Gelingt es Ihnen nicht, den Huma¬ 
noid zu retten, verwandelt er 
sich in einen Mutanten und wird 
ebenfalls zu Ihrem Feind. Es gibt 
verschiedene Arten von feindli¬ 
chen Angreifern: Raumschiffe, 
Landers, Bombers, Baites Swar- 
mers, die Sie nur mit viel Geschick 
vernichten können. 

Spielbewertung: 


Spiel idee - ++++ 

Grafik +++ 

Motivation 

Gesamturteil ++++ 


Hersteller: Atari 


MOON PATROL _ 

Als Sie sich beim Luny City Police 
Department beworben haben, hät¬ 
ten Sie sicherlich auch im Traum 
niemals daran gedacht, daß ausge¬ 
rechnet Sie in Sektor 9 versetzt 
werden. Nun ja, Sie haben zwar 
den besten Mondjeep der ganzen 
Truppe, aber in diesem Sektor dro¬ 
hen soviele Gefahren wie in kei¬ 
nem anderen. 

Zu Beginn des Spieles kann der 
Spieler entscheiden, ob er die 
Mondoberfläche als Anfänger 
(Rookie) oder Champion befahren 
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will. Jede Fahrt besteht aus 5 Sek¬ 
toren, die durchquert werden 
müssen. Am Ende jedes Sektors 
gibt es Bonuspunkte, wenn die 
vorgegebene Zeit eingehalten wur¬ 
de. Je schneller Sie fahren, um so 
höher ist der Bonus. Leicht ist 
Ihre Aufgabe jedoch keineswegs. 
Sie müssen nicht nur Mondkrater 
überspringen, sondern auch U.fos 
in der Luft vernichten, und Objek¬ 
te, die Ihnen auf der Mondober¬ 
fläche begegnen, zerstören oder 
- falls möglich - überspringen. 

Je weiter Sie vorgedrungen sind, 
um so schwieriger wird Ihre Auf¬ 
gabe. Die'Anzahl der Krater und 
Ufos nimmt zu; auf der Planeten¬ 
oberfläche erscheinen Minen, die 
nicht zerstört, sondern nur über¬ 
sprungen werden können — und 
dann gibt es auch noch feindliche 
Panzer und Moonjeeps. die Sie 
von hinten angreifen. 

Positiv hervorzuheben ist an die¬ 
sem Spielmodul die Hintergrund¬ 
grafik, die einen 3dimensionalen 
Effekt bewirkt. 

Spielbewertung: 


Spiel idee ++++ 

Grafik ++++ 

Motivation +++++ 

Gesamturteil +++++ 

Hersteller: Atari 


JUNGLE HUNT _ 

Zunächst zur Vorgeschichte: Sie 
befanden sich mit Ihrer Reisegrup¬ 
pe auf einer Dschungelsafari, als 
2 Kannibalen Ihre Gruppe über¬ 
fielen und Ihre Freundin entführ¬ 
ten. Ihre Aufgabe ist es nun, die 
Freundin aus der Gewalt der Kanni¬ 
balen zu befreien. 

Bei Ihrer Rettungsaktion müssen 
Sie zahlreiche Gefahren überstehen. 
Zunächst einmal müssen Sie sich 
im Urwald von Liane zu Liane 
schwingen. Ein Sprung daneben — 
und eines Ihrer vier Leben ist ver¬ 
loren. Danach können Sie Ihre 
Tauchkünste unter Beweis stellen. 
Der Fluß, den Sie durchschwim¬ 
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men müssen, befindet sich voller 
Krokodile. Sie können Ihnen aus- 
weichen oder Sie mit Ihrem Mes¬ 
ser töten, was Bonuspunkte gibt. 
Aber Vorsicht: Wenn Sie im Bruch¬ 
teil einer Sekunde zu spät zuste¬ 
chen, frißt das Krokodil Sie auf. 
Nach dem Fluß geht.es eine An¬ 
höhe rauf, wobei Ihnen ständig 
kleine und große Steine entgegen¬ 
rollen. Sie müssen diese übersprin¬ 
gen und dann ist es endlich so¬ 
weit: Sie sehen Ihre Freundin, wie 
Sie mit einem Seil gefesselt über 
dem Kochtopf der Kannibalen 
hängt. Jetzt beginnt der schwie¬ 
rigste Teil.der Aufgabe. Sie müs¬ 
sen die beiden Kannibalen über¬ 
springen, was besonders schwie¬ 
rig ist, da sie sich ständig hin- und 
herbewegen und mit ihren Spee- 
ren fuchteln. 

Wenn Sie auch diese Gefahr über¬ 
wunden haben, können Sie Ihre 
Freundin in die Arme schließen 
und mit der nächsten Runde 
beginnen. 


Spielbewertung: 

Spielidee +++++ 

Grafik ++++ 

Motivation +++++ 

Gesamturteil +++++ 

Hersteller: Atari 


TI-INVADERS _ 

Invaders ist wahrscheinlich der 
Klassiker unter den TI-Modulen 
und wohl auch der Weltraumspiele 
insgesamt. 

Sie haben 3 Abschußrampen, mit 
denen Sie die feindlichen Invasoren 
vernichten müssen. Diese greifen zu 
Beginn jeder Spielrunde in 5 Rei¬ 
hen übereinander an. 

Am Anfang des Spieles können Sie 
unter 2 Varianten wählen: Die 
Invasoren feuern wahllos, ohne die 
Position Ihrer Abschußrampe zu 
kennen oder aber die wesentlich ge¬ 
fährlichere 2. Version - die Invasoren 
feuern gezielt auf Ihre Rampe. 
Während jeder Spielrunde und 
nachdem alle Invasoren einer Run¬ 
de getötet wurden, fliegen Raum- ~ 
schiffe im oberen Teil des Bild¬ 
schirms von einer Seite auf die an¬ 
dere. Diese Raumschiffe sollten 
Sie auf jeden Fall vernichten, denn 
dann erhalten Sie wertvolle Bonus¬ 
punkte. Diese Punkte sind für spä¬ 
tere Spielrunden sehr wichtig, denn 
bei 3000 und 10 000 Punkten be¬ 
kommt der Spieler eine Bonus¬ 
rampe. 

Je mehr Formationen der Invasoren 
abgeschossen wurden, um so gefähr¬ 
licher wird das Spiel. Die Invasoren 
beginnen sich zu drehen, danach zu 
vergrößern und verkleinern und 
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dann kommen Formationen, die 
nur ab und zu aufblinken. Nur wenn 
diese Invasoren auf dem Bildschirm 
aufblinken, können Sie vernichtet 
werden, sonst sind sie unzerstörbar. 
Fazit: Invaders ist genau das Rich¬ 
tige für Spieler, die gerne feuern — 
und Tl-Invaders ist wohl die beste 
Version, die es für Homecomputer 
gibt, denn vergleichbare Commo- 
dore- und Atariversionen können 
bei weitem nicht mithalten. 

Spielbewertung: 


Spieiidee +++ 

Grafik +++++ 

Motivation +++++ 

Gesamturteil ++++ 


Hersteller: Texas Instruments 

FREDDY _ 

Dieses neue Spiel für den TI 99/4A 
ist in Assembler geschrieben. Um 
es starten zu können, benötigt man 
mindestens eine 32k-Karte, ein 
Laufwerk und entweder das Mini 
Memory oder den Editor Assemb¬ 
ler. 

Bei dem FREDDY geht es darum, 
als wagemutiger Abenteurer in ei¬ 
nem magischen Labyrinth den Aus¬ 
gang zu finden. Jedoch lauern eine 
Vielzahl von Gefahren auf den 
Abenteurer. So hat er es in der er¬ 
sten Runde bereits mit gefährlichen 
Ratten und Skorpionen zu tun, je¬ 
doch in den darauf folgenden Run¬ 
den tauchen zusätzlich feindliche 
Fledermäuse und lebendige Mumien 
auf, wodurch es FREDDY immer 
schwieriger gemacht wird, zum 
rettenden Ausgang zu gelangen. 

Auf dem Weg aus dem Labyrinth 
findet FREDDY wenigstens eine 
Menge Schätze, die er mitnehmen 
kann. Sogar Lebenselexier kann 
FREDDY finden und so sein Leben 
etwas verlängern. 

Um sich all .dieser Gefahren erweh¬ 
ren zu können, besitzt FREDDY 
eine Pistole. Mit ihr kann er z.B. 
Gespenster erschrecken, damit die 
das Weite suchen und ihn mög¬ 
lichst nicht berühren, was nämlich 
für FREDDY nicht gut wäre. 

Das Spiel zeichnet sich durch gute 
Grafik und Toneffekte aus. Bei 
dem FREDDY ist es nicht unbe¬ 
dingt notwendig, Joysticks zu ha¬ 
ben, da sich dieses Programm auch 
gut mit den Tasten steuern läßt. 

Für besonders große Spielefreaks 
ist sogar noch eine Highscoreliste 
enthalten, in der jeder Spieler seine 
erreichte Punktzahl mit Namen an¬ 
geben kann. Leider werden diese 
Daten nicht auf Diskette abgespei¬ 
chert, wodurch sie nach Abschalten 
des Computers verloren gehen. Da¬ 


her erscheint die Highscoreliste hier 
nicht ganz sinnvoll. 

Alles in allem istTREDDY ein net¬ 
tes Spielchen, das die ohnehin gro¬ 
ße Tl-Spielebibliothek bereichert. 
FREDDY kostet etwa 65 Mark und 
wird als Diskette mit Beschreibung 
geliefert. Sollte mal keine Beschrei¬ 
bung dabei sein, so ist das nicht wei¬ 
ter schlimm, da nämlich auf der Dis¬ 
kette eine zusätzliche Kurzbeschrei¬ 
bung vorhanden ist. 


Bewertung: 

Spielidee ++ 

Grafik ++++ 

Motivation +++ 

Gesamturteil +++ 

Vertrieb: 


Fa. Radix/Hamburg 


NONSTOP _ 

Dieses Spiel ist ein Flugsimulations¬ 
programm, bestehend aus 2 Teilen, 
die Anleitung und das Spiel. 

Im Teil 1, der Anleitung, fällt als 
erstes die miserable Rechtschreibung 
auf. Solche Fehler dürften bei kom¬ 
merziell verwendeten Programmen 
nicht auftreten. Die Anleitung 
selbst ist leicht verständlich. 

Der Flug ist unterteilt in Start, Flug 
und Landung, wobei sich die Tasten¬ 
steuerung als verwirrend herausstellt. 
Die Grafik ist sehr einfach aufgebaut. 
Außer den 6 Instrumentenfeldern, 
die das Cockpit darstellen, ist ein 
schmaler grüner Streifen die Erde 
und ein breiter blauer Streifen die 
Atmosphäre. Ein Gefühl oder ein 
Eindruck von Bewegung vermißt 
man. Einen kleinen Fehler weist das 
Programm ebenfalls auf, und zwar 
läßt sich der Kurs nicht angleichen, 
allerdings kommt man dennoch 
zum Ziel. 

Eine Variante der Flugsimulation 
einfachster Form. 

Bewertung: 


Spiel idee +++ 

Grafik ++ 

Spielmotiv ++ 

Gesamturteil * ++ 


Anbieter: Powersoft, Kevelaer 
B. Stöcker 

CROOM _ 

Der Aufbau dieses Spiels erinnert 
an viele andere, wie z.B. Jumping 
Miner, BGetter-Maxe und ähnliche. 

Es ist mit einer Highscore-Bewer- 
tung ausgestattet, die den Ehrgeiz 
heräusfordert. 

Es geht darum, ein Männchen, das 
auf CROOM gefangen ist, durch 
mehrere Ebenen zu steuern (nur mit 
Joystick) und den goldenen Schlüs- 
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sei für die Befreiung zu finden. Die 
Figur muß erst einen anderen 
Schlüssel, den grünen, an sich brin¬ 
gen, um damit alle abgebildeten 
Türen öffnen zu können, bis es den 
goldenen Schlüssel findet. Hinter 
den Türen können jedoch unange¬ 
nehme, aber auch angenehme Über¬ 
raschungen lauem, wie Gold oder 
Monster. Dies drückt sich in der 
Punktebewertung nieder. Man muß 
also außer Geschicklichkeit auch 
Glück haben. Die Bewegung auf den 
vier übereinander liegenden Ebenen 
wird zusätzlich noch durch hin- und 
herlaufende Monster erschwert, an 
denen man aber vorüber muß. 

Hat man mit Glück und Geschicklich¬ 
keit den goldenen Schlüssel gefun¬ 
den, so ist man von CROOM be¬ 
freit. 

Auch hier wieder Rechtschreibe¬ 
fehler, die bei der Fa. Powersoft ein 
Markenzeichen zu sein scheinen. 

Bewertung: 


Spielidee ++++ 

Grafik +++ 

Spielmotivation +++ 

Gesamturteil +++ 


Anbieter: Powersoft, Kevealer 
B. Stöcker 



ZERO ZAP - von Texy in deutsch 
mit dem klangvollen Namen Flipper 
versehen — ist eines der ersten Spiel- 
module, die auf den Markt kamen. 
Wer jedoch'bei Flipper an Night- 
mission oder ähnliches für Commo- 
dore oder Atari denkt, erlebt eine, 
große Enttäuschung. Man schießt 
einen Ball hoch, der dann auch 
Punkte bringt und irgendwann wie¬ 
der runterkommt, aber von Span¬ 
nung und Action kann keine Rede 
sein. Die Entfaltungsmöglichkeiten 
des Spielers sind begrenzt und die 
Grafik könnte ebenfalls besser 
sein. 


Bewertung: 

Spiel idee 
Grafik 
Motivation 
Gesamturteil 


++ 

++ 

+ 

++ 


Hersteller: Texas Instruments 




SERIE & SERVICE 


Die 

Club- 

Seite 

Die Clubaktivitäten 
scheinen in der letzten 
Zeit wieder stärker zu 
werden. Heute haben 
uns gleich mehrere 
Clubs um eine Vorstel¬ 
lung gebeten. Der erste 
ist der Diezenbacher 
Computer Club: 

Wir haben vor 4 Mona¬ 
ten zu dritt einen 
Computer Club gegrün¬ 
det, weil wir Kontakt 
mit anderen Computer¬ 
besitzern knüpfen woll¬ 
ten. Inzwischen sind 
wir ca. 30 Mitglieder. 
Fast alle gängigen 
Computer (z.B. TI 991 
4A, Commodore, 

Apple, Atari, Spec¬ 
trum, ZX 81 usw) sind 
bei uns vorhanden. 

1 Mir wollen hauptsäch¬ 
lich Software und 
selbstgebaute Hard¬ 
ware tauschen. Ebenso 
werden Tips und 
Tricks berücksichtigt. 
Diese können in der 
Clubzeitschrift veröf¬ 
fentlicht werden. Un¬ 
ser Club bei trag beträgt 
6 DM im Jahr, damit 
werden hauptsächlich 
Portokosten gedeckt. 
Weitere Informationen 
gibt: 

■Peter Flick, Rosenweg 

33, 605 7 Dietzenbach 1. 
* 

Ein weiterer Userclub 
nennt sich „TI 99 


Workshop“ und ist im 
Rheinland beheimatet: 

So um die zweite März¬ 
hälfte dieses Jahres 
wurde im Rheinland 
der TI 99er Workshop 
ins Leben gerufen. 

Wir verstehen uns 
nicht als Verein und 
sind vor Allem nicht 
irgendeinem Dachver¬ 
band angehörig. Unse¬ 
re Aktivitäten erstrek- 
ken sich vom Erstel¬ 
len der unterschiedlich¬ 
sten Programme (Uti¬ 
lities, Anwender-, 

Spiel- und sonstiger 
Programme) über 
Hardwareentwicklun¬ 
gen bis hin zum Ver¬ 
nichten diverser Faß- 
und Flaschenbiervor¬ 
räte ohne jeglichen 
Compu tereinsatz. 
Unsere Treffen finden 
in unregelmäßigen 
Abständen bei den 
einzelnen Usern statt, 
soweit es die Räumlich¬ 
keiten zulassen. Au¬ 
ßerdem glühen in den 
Pausen dazwischen 
schon einmal die Tele¬ 
fondrähte im gesamten 
Rheinland. Unsere 
Hardwareausstattung 
reicht vom System zur 
Konsole mit Extended 
Basic bis zum Vollaus¬ 
bau mit 2 Floppies, 
Drucker, DFÜ usw. 

Es wird also keiner ver¬ 
nachlässigt. Wir sind 
auch anderen schönen 
Dingen nicht abgeneigt, 
so daß man uns ruhig 
als eine quicklebendige 
Gruppe bezeichnen 
kann, deren Mit „arbei¬ 


tet‘zahl je nach Lust 
und Laune der Einzel¬ 
nen schwankt. Um die 
Interessentenzahl nicht 
ins Uferlose ansteigen 
zu lassen, haben wir 
unseren Einzugsbereich 
auf den Großraum 
Bonn-Köln-Düsseldorf • 
beschränkt, Anfragen 
-und Kontaktwünsche 
aus anderen Teilen der 
Tl-Welt werden jedoch 
auch freudig registriert 
und beantwortet. 
Abschließend soll nicht 
unerwähnt bleiben, daß 
wir in Zukunft die Ein¬ 
richtung einer Daten¬ 
bank mit allen verfüg¬ 
baren Informationen, 
Programmen, Belichten 
udw. über den TI 99/ 

4A vorantreiben wol¬ 
len. 

Kontaktadresse: 

Mike Heuser, Eiben¬ 
weg 1, 5205 St. 

Augustin 1 
* 

Nur mit Adventure- 
Spielen und deren Lö¬ 
sung beschäftigt sich 
ein neu in Halstenbek 
gegründeter Club: 

Wir haben den TI99/ 

4A Adventure Club ge¬ 
gründet. Er besteht zur 
Zeit aus 2 Mitgliedern, 
wir hoffen aber, daß es 
bald mindestens 20 
werden. Der Club rich¬ 
tet sich an alle Besitzer 
eines TI 99/4A, die 
Adventure-Module be¬ 
sitzen. Ein Mitgliedsbei¬ 
trag wird nicht erhoben. 
Der Club beschäftigt 
sich mit den Adven- 
tures von Texas Instru¬ 


ments. Eine Clubinfo 
erscheint ca. alle 2 
Monate. In den ersten 
A usga benliegt der 
Schwerpunkt der 
Clubinfos auf folgen¬ 
den Themen: Sicher¬ 
heitskopien von Adven- 
tures, Auflistenyon 
Adventures, Testberich¬ 
te von neuen Grafik- 
adventures, Lösung 
des Pirate Adventures, 
Mitgliederseite (hier 
können alle Fragen zu 
Adventures stellen 
oder Tips geben). Alle 
werdenden Mitglieder 
sind herz liehst auf ge¬ 
fordert, uns gleich mit 
der Anforderung des 
Clubinfo Tips, Tricks, 
Lösungen und Fragen 
zuzusenden. Hier nun 
unsere Anschrift: 

Sascha Junior, 
Hagentwiete 23, 

2083 Halstenbek 

Eine kleine Anmerkung 
sei zu den Adventure- 
Spielen gestattet: Diese 
Spiele stammen nicht 
von TI, sondern von 
Adventure Internatio¬ 
nal. Es gibt sie in genau 
gleicher Form auch Für 
andere Computer. So, 
das war es für heute aus 
der Clubszene und da 
wir gerade vom Pirate 
Adventure gehört 
haben: 

Bauanleitung für das 
Schiff, den Rum und 
den Spaten nicht verges¬ 
sen! Wichtig sind auch 
die Streichhölzer, und 
einen Begriff haben 
wir in keinem Lexikon 
gefunden. 


Neu für TI-99/4A 


Peripherie 
CPS 99 

mit 1 Laufwerk DS DD 1.698,- 
(360 KB), Disk-Steuerkarte, 

32 K-RAM, RS-232 und 
Centronics 

wie vor mit 2 Laufw. 2.198,- 

32 K-Byte RAM (extern) 279,- 

32 K-Byte RAM (extern) mit 
Centronics-Interface 369,- 


Graphic Tableau 


Software 

Mini Memory 

Editor Assembler 

Multiplan 

Tl-Writer 

Basic Compiler 

ID-Data 

ID-Konto 

Lagerverwaltung 

Versandliste 


Alle Preise incl. MwSt. zuzügl. 5.- DM Versandkosten. Lieferung per Nachnahme 
oder Vorkasse, ab 200.- DM versandkostenfrei. 

Fordern Sie unsere kostenlose Preisliste an. 


Programm-Service 




5584 Bullay 

Bergstraße 80 
Telefon 06542/2715 






MANIC MINER II 

Wie bei dem bekannten Spiel.„Manie 
Miner“ für Schneider und Spectrum muß 
Willy, der Bergmann, in der Mine nach 
Feierabend alle Kisten und Kartons einsam¬ 
meln. Da nach Arbeitsschluß niemand mehr 
für Frischluft sorgt, muß sich Willy ganz 
schön beeilen. Die Atemluft wird immer 
knapper. Doch nicht genug der Probleme. 
Geschöpfe der Tiefe sind hinter ihm her 
und suchen ein schnelles Abendessen. Da 
heißt es Reißaus zu nehmen oder mit ei¬ 
nem geschickten Sprung die Biester zu über¬ 
winden. An manchen Stellen des Bergwer¬ 
kes ist der Boden schon recht brüchig und 
Willy darf dort nicht zu lange an einer Stel¬ 
le stehen bleiben, sonst geht’s abwärts. 

Auch hier hilft meistens ein schneller 
Sprung. Nachdem Willy alle Kartons einge¬ 
sammelt hat. darf er sich in Windeseile in 
Richtung Tor absetzen. In welcher Runde 
er es lebend erreichen wird, hängt ganz 
von der Geschicklichkeit des Spielers ab. 
Doch wie heißt es so schön? „Es ist noch 
kein Meister vom Himmel gefallen.“ 
Steuerung des Spiels: 

Taste >S<= links gehen 
>D<= rechts gehen 
>8<= links Sprung 
>9< = hoch Sprung 
>0< = rechts Sprung 

Sven Vogelgesang 


OCTOPUS ATTACK 

Durch finstere Polypen wird die Unterwas¬ 
serstation Delta I angegriffen. So lange sich 
die Kraken noch links von der Station be¬ 
finden, besteht noch keine akute Gefahr. 

Sie beobachten nur und suchen eine günsti¬ 
ge Angriffsfläche. Wehe aber, wenn die ge¬ 
fräßigen Kraken plötzlich von der rechten 
Seite die Station anschwimmen. Dann be¬ 
steht höchste Gefahr, die Ihre volle Reak¬ 
tionsschnelligkeit fordert. Mit der Taste „E“ 
kann die Unterwasserkanone nach oben 
und mit der Taste „F“ nach unten gelenkt 
werden. Gelingt es Ihnen, die Kanone in 
die richtige Schußposition zu bringen und 
anschließend durch Druck auf die Leer¬ 
taste den Kranken abzuschießen, dann ha¬ 
ben Sie nicht nur die Unterwasserstation 
vorläufig gerettet, sondern brauchen auch 
keines Ihrer 3 Leben vorzeitig auszuhau¬ 
chen. Schnelle Reaktion ist Trumpf in 
diesem TI-Basic-Spiel. 

Sven Vogelgesang 

Anmerkung der Redaktion: 

Der Autor hat sich große Mühe mit dem 
Bildschirmaufbau gegeben und ihm ist es 
gelungen, mit der relativ unkomfortablen 
TI-Basic Sprache ein gutes Spiel zu pro¬ 
grammieren. Denkt bitte daran, daß die 
Punkte im Listing nur zu Eurer Hilfe 
beim Abtippen gesetzt wurden. Tippt Ihr 
die Punkte mit ab, so wird der Bildschirm¬ 
aufbau unsauber. 


10 REM******************** 


11 REM* • * 

12 REM* MANIC MINER II * 

13 REM* Copyright by * 

14 REM* Sven Vogelsang * 

15 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 8144 Bytes * 


25 REM******************** 

26 REM 
100 P=7 
110 N=7 
120 AIR=16 
130 Y=7 
140 X=4 
150 SC0RE=0 
160 CALL CLEAR 
170 CALL SCREEN(2) 

180 CALL CHAR(97, M 1828187C1A 
28246C") 

190 CALL CHAR(98,"1814183E58 
142436") 

200 CALL CHAR(99,"003C5AFFBD 
9942") 

210 CALL CHARdOO, "95563CFF3 
CDE2D4A") 

220 CALL CHAR(101,"AAAAAAAAA 
AAAAAAA") 

230 CALL CHAR(102,"FF00FF00F 
FOOFF") 

240 CALL CHAR(104,"FFFFFFFFE 
24") 

250 CALL CHAR(105,"FFFFFFCC4 
4224") 

260 CALL CHAR<106,"000000FFF 
FFFCC44") 

270 CALL CHAR(113,"AA55AA55A 
A55AA55") 

280 CALL CHAR(114,"000049529 
2642818") 

290 CALL CHAR(120,"1F23477F4 
7467C") 

300 CALL CHAR(128,"8890A0FC7 
830F0B") 

310 CALL CHAR(129,"1109053F1 
E0C0F0D") 

320 CALL CHAR(136,"FFFFOOOOO 
OOOFFFF") 

330 CALL CHAR(137,"FFFFFFFFF 
FFFFFFF") 

340 CALL CHAR <130,"0000183C3 
CI8" ) 

350 CALL CHAR(144,"0103070F1 
F3F7FFF") 

360 CALL CHAR(145,"80C0E0F0F 
8FCFEFF") 

370 CALL CHAR(146,"FFFEFCF8F 
0E0C08") 


u 
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380 CALL CHAR(147,"FF7F3F1F0 
F070301“) 

390 CALL CHAR(148,"FFFFFFFFF 
FFFFFFF") 

400 CALL CHAR(138,"00000000F 
FFFFFFF") 

410 CALL CHAR(139,"3C3C3C3C3 
rorcir " ) 

420 CALL COLOR(15,3,1) 

430 PRINT ".AIR. 


q 


440 PRINT "q. 

.xqq- 

.qqb 


450 PRINT "qhhhhhhhhhhhh.. . i 

iiihhhhh..qq.x• 

... 

...r....h h q" 

460 PRINT "q.h 

hhhhhhhh.xqq..hhhhhhhhhh- 

.qq.* * • ■ 

.q" 

470 PRINT "q. 

. . . . . . ....qqiihhhhhhhhhh. . .h 

hhhhh. . . . hqq.... 

....q" 

480 PRINT "qhh...xqx. 

... . qq.q. . . . qeeeq 

. qq...r..q....qeeeq 

qqqqrr....q" 

490 PRINT "qhhhhhhqqqqqqeeeq 
qqqqhhhhhhqqqqqqqqqqqqqqqqqq 

qqqqqqqqqqqqqqqqqqqELIGENE’ S 

LAIRqqqqqqq“ 

500 PRINT "qqqqqqqqqqqqqqqqq 

qqqqqqqqqqq" 


510 

FOR K=1 TO 8 

520 

CALL 

COLOR(K,16,1) 

530 

NEXT 

K ' , 

540 

CALL 

COLOR(9,16,1) 

550 

CALL 

COLOR(10,6,1) 

560 

CALL 

COLOR(11,13,1) 

570 

CALL 

COLOR(12,11,1) 

580 

CALL 

COLOR(13,9,1) 

590 

CALL 

COLOR(14,7,16) 

600 

CALL 

COLOR(16,14,1) 

610 

IF U= 

=0 THEN 2490 

620 

J = 1 


630 

C = 128 

640 

GOTO 

890 

650 

P=P + J 

660 

CALL 

HCHAR(7,P-J,32) 

670 

CALL 

HCHAR (7,’P, C) 

680 

CALL 

HCHAR(11,P-J,32) 

690 

CALL 

HCHAR(11,P,C) 

700 

CALL 

GCHAR(7,P-1,F) 

710 

IF F : 

=98 THEN 2750 


720 CALL GCHAR(11,P+l,F) 

730 IF F=97 THEN 2750 
740 N=N+J 

750 CALL VCHAR(N-J,17,32) 

760 CALL VCHAR(N,17,99) 

770 CALL SOUND(10,-3,2) 

780 IF P=15 THEN 870 
790 IF P=6 THEN 620 
800 CALL KEY(0,K,S) 

810 IF K=83 THEN 940 

820 IF K=68 THEN 1070 

830 IF K=57 THEN 1200 

840 IF K=56 THEN 1470 

850 IF K=48 THEN 1770 

860 GOTO 650 

870 J=-l 

880 C-129 

890 AIR-AIR-1 

900 IF AIR=0 THEN 2750 

910 CALL HCHAR(2,9,136,AIR) 

920 CALL HCHAR <2,8-+AIR, 137,2 

5-AIR-8) , 

930 GOTO 650 

940 CALL GCHAR(Y,X-1,F) 

950 IF F=113 THEN 650 
960 IF F=114 THEN 2750 
970 IF F=128 THEN 2750 
980 CALL HCHAR(Y,X,32) 

990 X=X-1 

1000 CALL HCHAR(Y,X,97) 

1010 CALL SOUNDdO,262,0) 
1020 CALL GCHAR <Y+i, X,F) 

1030 IF F=32 THEN 2070 
1040 IF F=105 THEN 2200 

1050 IF F=106 THEN 2230 

1060 GOTO 650 
1070 CALL GCHAR (Y, X+ 1 , F). 
1080 IF F=113 THEN 650 

1090 IF F=114 THEN 2750 

1100 IF F=129 THEN 2750 

1110 CALL HCHAR(Y,X,32) 

1120 X=X+ 1 

1130 CALL HCHAR(Y,X,98) 

1140 CALL SOUNDdO,262,0) 
1150 CALL GCHAR(Y+l,X,F) 

1160 IF F=32 THEN 2070 
1170 IF F=105 THEN 2200 
1180 IF F=i06 THEN 2230 
1190 GOTO 650 
1200 F=32 
1210 FOR K=1 TO 5 
1220 CALL HCHAR(Y, X, F) 

1230 CALL GCHAR(Y-1,X,F) 
1240 IF F=120 THEN 1400 
1250 IF F=105 THEN 1340 
1260 IF F=106 THEN 1340 
1270 IF F=107 THEN 1340 
1280 CALL SOUNDdO, K*110,0) 
1290 Y=Y-1 

1300 IF Y<4 THEN 2070 


90 































1310 CALL HCHAR(Y, X,98) 

' 1320 NEXT K 
1330 GOTO 2070 
1340 CALL HCHAR(Y, X,32) 

1350 CALL SOUND(10,262,0) 
1360 CALL SOUNDdO,250,0) 
1370 Y=Y-2 

1380 CALL HCHAR(Y,X,98) 

1390 GOTO 650 

1400 CALL SOUND(20,330,0) 

1410 CALL S0UND(20,349,0) 

1420 CALL S0UND(20,294,0) 

1430 SCÜRE=SCORE+245 

1440 IF SC0RE=1225 THEN 2260 

1450 CALL HCHAR(Y-l,X,32) 

1460 GOTO 2070 

1470 SP=0 

1480 CALL GCHAR(Y-1,X-1,T) 
1490 IF T=113 THEN 650 
1500 IF T=120 THEN 1400 
1510 CALL HCHAR(Y,X,32) 

1520 Y=Y-1 
1530 X=X-1 

1540 CALL HCHAR(Y,X,97) 

1550 CALL S0UND<10,330,0) 
1560 CALL HCHAR(Y,X,T) 

1570 CALL GCHAR(Y,X-l,T) 

1580 IF T=120 THEN 1400 
1590 IF T=113 THEN 2070 
1600 IF T=99 THEN 2750 
1610 X=X-1 

1620 CALL HCHAR(Y,X,97) 

1630 CALL SOUNDdO,340,0) 
1640 SP=SP+1 

1650 IF SP=3 THEN 1660 ELSE 
1560 . / 

1660 CALL GCHAR(Y+i,X-l,F) 
1670 IF F=114 THEN 2750 
1680 IF F=113 THEN 2070 
0 1690 IF F=101 THEN. 650 

1700 IF F=102 THEN 2310 
1710 Y=Y+1 
1720 X=X-1 

1730 CALL SOUND(10,330,0) 
1740 CALL HCHAR(Y-l,X+i , T) 
1750 CALL HCHAR(Y,X,97) 

1760 GOTO 2070 
1770 *SP=0 

1780 CALL GCHAR(Y-l,X+i,T) 
1790 IF T=113 THEN 650 

1800 IF T=120 THEN 1400 

1810 CALL HCHAR(Y,X,32) 

1820 Y=Y-1 
1830 X=X+1 

1840 CALL HCHAR(Y,X,98) 

1850 CALL SOUNDdO,330,0) 
1860 CALL HCHAR(Y,X,T) 

1870 CALL GCHAR(Y,X + l,T) 

1880 IF T=120 THEN 1400 

1890 IF T=113 THEN 2070 

1900 IF T = 99 THEN 2750 




1910 X=X+1 

1920 CALL HCHAR(Y,X,98) 

1930 CALL SOUND(10,340,0) 
1940 SP=SP+1 

1950 IF SP=3 THEN 1960 ELSE 
1860 

1960 CALL GCHAR(Y+l,X+l,F) 
1970 IF F=114 THEN 2750 

1980 IF F=113 THEN 2070 

1990 IF F=101 THEN 650 

2000 IF F=102 THEN 2310 

2010 Y=Y+1 
2020 X=X+1 

2030 CALL SOUND(10,330,0) 
2040 CALL HCHAR(Y-l,X-l,T) 
2050 CALL HCHAR(Y,X,98) 

2060 GOTO 2070 
2070 FOR K=1 TO 6 
2080 CALL SOUND(10,K*220,0) 
2090 CALL GCHAR(Y+1,X,F) 
2100 IF F=32 THEN 2150 
2110 IF F=102 THEN 2310 
2120 IF F=99 THEN 2750 
2130 IF F=114 THEN 2750 
2140 GOTO 650 
2150 Y=Y+1 

2160 CALL HCHAR(Y,X,97) 

2170 CALL HCHAR(Y-1,X,32) 
2180 NEXT K 
2190 GOTO 2750 
2200 CALL SOUND(10,242,3) 
2210 CALL HCHAR(Y+l,X,106) 
2220 GOTO 650 
2230 CALL SOUND(20,242,3) 
2240 CALL HCHAR(Y+l,X,32) 
2250 GOTO 2070 
2260 FOR K=16 TO 18 
2270 CALL VCHAR(18,K,102,3) 
2280 CALL SOUND(20,K*50,0) 
2290 NEXT K 
2300 GOTO 2070 
2310 SC0RE=SC0RE+AIR*125 
2320 FOR K= <AIR + 9)TO 9 STEP 
-1 

2330 CALL HCHAR(2,K,137) 

2340 CALL SOUND(10,K*110,3) 

2350 NEXT K 

2360 CALL CLEAR 

2370 PRINT : : H .. . . 


2380 PRINT : : 

2390 PRINT "MANIC MINER II" 

2400 PRINT : .SCORE:"\SCO 

RE 

2410 IF HI>SCORE THEN 2430 

2420 HI=SCORE 

2430 print : : M ..hi-score: 

HI 

2440 PRINT : ..ANY KEY TO 

RESTART" 

2450 PRINT : :". 9# 


o-i 
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2460 PRINT : : : : : 

2470 CALL KEY<0,K,S) 

2480 IF S=0 THEN 2470 ELSE 1 
00 

2490 CALL CLEAR 

2500 PRINT .WEGASOF 

T" 

2510 PRINT "qqqqqqqqqqqqqqqq 

qqqqqqqqqqqqq... 

.qq. 

.q" 

2520 PRINT "q. 

... 

... 

.. " 

2530 PRINT "q. 

... 

... 

.q" 

2540 PRINT "q. 

... 

... 

.q" 

2550 PRINT "q. 

... 

.qqqqqqqqqqqqqqqqq 

qqqqqqqqqqqq" 

2560 PRINT H .. 

.qq...PRESS AID FO 

R RULES- qq . 

.qq...PRESS SPACE 

TO BEGIN...q" 

2570 PRINT "q.... 

.qqqqqqqqqqqqqqqqq 

qqqqqqqqqqqq" 

2580 CALL KEY<0,K,S> 

2590 IF K=1 THEN 2640 
2600 IF K=32 THEN 2620 
2610 GOTO 2580 
2620 11=1 
2630 GOTO 100 
2640 CALL CLEAR 
2650 CALL COLOR(14,7,1) 

2660 PRINT " MANIC MINER 
. (C)WEGASOFT" 

2670 print : : :". 


..a. . . . . 

yni ir 

MAN... 

•1 

2680 

PRINT 


nTMTC 

.. 




II 

2690 

D 1 

PRINT 

"......J c...DANGE 

_.S . MOVE 

LEFT 

2700 

II 

PRINT 

II 


RIGHT. 

2710 PRINT 


9.JUMP. 


8_.JUMP 


LEFT. 

2720 PRINT "-0.JUMP 

RIGHT." 

2730 CALL KEY(0,K,S) 

2740 IF S=0 THEN 2730 ELSE 2 
490 

2750 CALL HCHAR(Y,X,100) 

2760 CALL SOUND<100,-7,0) 
2770 CALL SOUND(100,-6,0) 
2780 CALL CLEAR 
2790 CALL CHAR(152,"FF7E7E3C 
3C3C7EFF") 

2600 CALL CHAR(131,"0606060F 
7FFF7F33") 

2810 CALL CHAR (115, 11 15151515 
15151515") 

2820 CALL HCHAR(20,1,113, 128 
) 

2830 CALL HCHAR(19,17,152) 
2840 CALL HCHAR(18,17,97) 
2850 FOR K=1 TO 17 
2860 CALL SOUND<10,K*110,0) 
2870 CALL VCHAR(K+i,17,131) 
2880 CALL VCHAR(K,17,115) 
2890 NEXT K 

2900 CALL SOUND(100,-6,0) 

2910 FOR K=1 TO 500 

2920 NEXT K 

2930 CALL CLEAR 

2940 PRINT . 


I N E R. . .. 
2950 PRINT 


2960 PRINT 
CORE 

2970 PRINT 
EY TO BEGIN 
2980 PRINT 


C..M I N E 
2990 PRINT 


M A N I C. .M 


: ••. .score: " ;s 

"..PRESS ANY K 


c • • • • • 


M A N I 


3000 PRINT : : 

3010 CALL KEY(0,K,S) 

3020 IF S=0 THEN 3010 ELSE 3 
030 

3030 GOTO 100 


MOVE 








































































10 REM******************** 


11 REM* * 

12 REM* OCTOPUS-ATTACK * 

13 REM* Copyright by * 

14' REM* Sven Vogelsang * 
13 REM* * 

17 REM*Eenoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 3345 Bytes * 


25 REM******************** 

26 REM 
100 P=0 
110 L=0 

120 RANDOMI2E 

130 FOR K=1 TO 8 

140 CALL COLOR(K,2,1) 

150 NEXT K 

160 CALL CHAR(120,"000000000 
OOOOOFF •' ) 

170 CALL CHAR(140,"FFFFFFFFF 
FFFFFFF") 

180 CALL CHAR(114,"000049529 
2642818") 

190 CALL CHAR(106,"OOOOOOOOF 
OFFFFFF") 

200 CALL CHAR(105,"101010101 
010101 ") 

210 CALL CHAR<104,"FFFFFFFFF 
FFFFFFF") 

220 CALL CHAR<128,"3C5A7E3C5 
4928949") 

230 CALL CHAR<129,"3C5A7E3C5 
4542408") 

240 CALL CHAR(130^"06091079F 
6E8C601") 

250 CALL CHAR<136,"3C7EFFFFF 
FFF7E3C") 

260 CALL CHAR <137,"IG1818181 
8181818") 

270 CALL CHAR<138,"1F3F7F7F7 
F3F1F07") 

280 CALL CHARU39, "F8FCFEFEF 
EFCF8E") 

290 CALL CHAR(144,"387EFFFFF 
FFFFFFF") 

300 CALL CHAR<145,"000287CFF 
FFFFFFF") 

310 CALL CHAR<146,"FFFFFFFFF 
FFFFFFF") 

320 CALL CHAR<152,"000000FF7 
F371F0F") 

330 CALL CHAR(153,"7E5F7FFFB 
BFFFFFF") 

340 CALL CHAR<154,"OOOOCOFFF 
FFFFFFF") 

350 CALL-CHAR<97,"0703") 

360 CALL CHAR <98,"FFFF3F98") 
370 CALL CHAR<99,"FFFOC") 

380 CALL CHAR<113,"AA55AA55A 


A55AA55") 


390 CALL CHAR(155, 
400 CALL CLEAR 
410 CALL SCREEN <2) 


420 PRINT 
qqqqhhh.. 

...qhhh.x. 
qqqqhhh": 
430 PRINT 
qqqqqq..., 


hhhqqqqqqqqqqq 
hhhq...OCTÜPUS 
hhhqqqqqqqqqqq 

.qqqqqqqqqqqqq 

• q. 


440 PRINT 

.q-. • 


q. 

q..abc 


450 PRINT 


460 PRINT 


. . r . rq.q. .. 

- q" 

470 PRINT " -q. 

.q.qqqqqqqqqqqqq 

qqqqqq" 

480 print : : : : 

490 FOR K=7 TO 9 
500 CALL HCHAR(K,8,155,17) 
510 NEXT K 

520 CALL HCHAR<18,8,146,17) 
530 CALL HCHAR(17,8,146,3) 
540 FOR K=ll TO 23 STEP 2 
550 CALL HCHAR(17,K,145) 

560 CALL HCHAR(17,K+1,144) 
570 NEXT K 

580 CALL HCHAR<4,11,128) 

590 CALL HCHAR(4,21,128) 

600 CALL VCHAR(10,9,137,6) 
610 CALL HCHAR(16,8,138) 

620 CALL HCHAR<16,9,140) 

630 CALL HCHAR(16,10,139) 

640 CALL HCHAR(9,10,152) 

650 CALL HCHAR(9,11,153) 

660 CALL HCHAR<9,12,154)' 

670 CALL SCREEN<6) 

680 CALL COLOR(9,13,1) 

690 CALL COLOR(11,13,1) 

700 CALL COLOR(13,2,1) 

710 CALL COLOR(14,2,1) 

720 CALL COLOR(15,7,1) 

730 CALL COLOR(12,16,1) 

740 CALL C0L0R(16,13,11) 

750 CALL COLOR(10,2,1) 

760 FOR K=1 TO 6 
770 CALL VCHAR(1,K,104,24) 
780 NEXT K 
790 FOR K=26 TO 32 
800 CALL VCHAR(1,K,104,24) 


» 
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‘810 NEXT K , 

820 CALL HCHAR<20,1,104,160) 

830 CALL HCHAR(1,1,104,64) 
840 Y=13 

850 CALL HCHAR(Y,11,106) 

860 RN=INT(RND*3)+12 
870 Z=21 

880 CALL HCHAR(Y,11,106) 

890 2=Z-2 

900 CALL HCHAR(RN,Z+2,32) 

910 CALL HCHAR(RN,Z,130) 

920 IF Z=ll THEN 890 
930 CALL SOUND (10,262,0) 

940 IF Z=9 THEN 1230 
950 CALL KEY(0,K,S) 

960 IF K=32 THEN 1000 
970 IF K=69 THEN 1110 
980 IF K=70 THEN 1170 
990 GOTO 890 

1000 CALL HCHARtY,12,120,<Z- 
1 ) - 11 ) 

1010 CALL SOUND(20,-7,0) 

1020 CALL GCHAR(Y,Z,F) 

1030 IF F=130 THEN 1060 
1040 CALL HCHAR(Y, 12,32, (Z-l 
)- 10 ) 

1050 GOTO 390 

1060 CALL HCHARtY,Z,143) 

1070 CALL SOUND(100,-6,0) 
1080 P=P+100 

1090 CALL HCHAR(Y,12,32,10) 
1100 GOTO 860 
1110 CALL GCHAR(Y-l,11,F) 
1120 IF F< >32 THEN 890 
1130 Y=Y-1 

1140 CALL HCHAR(Y+i,11,32) 
1150 CALL HCHARtY,11,106) 
1160 GOTO 890 
1170 CALL GCHAR(Y+l,11,F) 
1180 IF F< >32 THEN 890 
1190 Y =-Y +1 

1200 CALL HCHAR(Y-l,11,32) 

1210 CALL HCHARtY,11,106) 

1220 GOTO 890 

1230 CALL VCHAR(RN,9,137) 

1240 CALL SOUND(100,262,0) 

1250 CALL SOUND(100,330,0) 

1260 CALL SOUND(100,270,0) 

1270 CALL SOUND(100,300,0) 

1280 FOR T=RN TO 10 STEP -1 

1290 CALL SOUND(20,262,0) 

1300 CALL HCHAR(T,8,129) 

1310 FOR HJ=1 TO 200 

1320 NEXT HJ 

1330 CALL HCHAR(T,8,128) 

1340 FOR HJ=1 TO 200 

1350 NEXT HJ 

1360 CALL HCHAR(T,8,32) 

1370 NEXT T 
1380 L=L+1 


1390 IF L=3 THEN 1400 ELSE 8 
60 

1400 CALL CLEAR- 

1410 PRINT " OCTOPUS 
SCORE:"JP 

1420 IF HI>P THEN 1440 
1430 HI=P 

1440 PRINT I" OCTOPUS-HI-SC 

ore:";hi 

1450 PRINT : : : 

1460 PRINT "PRESS ANY KEY TO 
BEGIN" 

1470 CALL KEY(0,K,S) 

1480 IF S=0 THEN 1470 ELSE 1 

00 

1490 END 


MORSE 

GEN ERATOR 

Das Programm erzeugt nach Eingabe eines 
Zeichens über die Tastatur das jeweilige 
Morsezeichen und zeigt es auf dem Bild¬ 
schirm synchron an. Die Geschwindigkeits¬ 
folge der Morsezeichen läßt sich durch Än¬ 
derung der Variablen D und DD sowie der 
Variable I in den Subroutinen DPA und PA 
beliebig erhöhen oder vermindern. In der 
vorliegenden Fassung werden ca. 50 Zei¬ 
chen/Minute gegeben. 

Das Programm eignet sich zum einen zum 
Üben bzw. Erlernen der Morsezeichen, in¬ 
dem man blind beliebige Zeichen über die 
Tastatur eingibt, nachdem man den Bild¬ 
schirm mit der Helligkeitseinstellung auf 
dunkel gestellt hat, und nach Dekodierung 
des gehörten oder der gehörten Zeichen 
diese mit den Zeichen auf dem Bildschirm 
vergleicht, nachdem man ihn wieder auf 
hell gestellt hat. Zur Erleichterung hierzu 
habe ich die Zeichen invers weiß auf 
schwarzem Grund dargestellt. 

Zum anderen läßt sich das Programm aber 
auch von Amateurfunkern zur komfor¬ 
tablen Direkteingabe verwenden. Hierzu 
muß lediglich das Audiosignal von der 
Videobuchse der Konsole abgeleitet und 
über Relais direkt dem Morsetastenan¬ 
schluß des Senders zugeführt werden. Auf 
diese Weise kann der Funker über die 
Konsole Klartext eingeben und erhält die¬ 
sen zur Kontrolle synchron auf dem Bild¬ 
schirm ausgegeben. 

Die richtigen „Funkfreaks“ werden sich 
sicherlich das Programm noch auf den ei¬ 
genen Bedarf „maßschneidem“ können. 
Die Modifikation der Gebegeschwindig- . 
keit habe ich vorstehend beschrieben, 
sicherlich kann man das eine oder andere 
Zeichen noch in das Programm einbauen, 
um es noch komfortabler zu machen. 

Thomas Ehlert 
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10 

! **X4Hf***X******X-*****X 

11 

! X 

* 

12 

! X MORSEGENERATOR 

X 

13 

! X 

X 

14 

! X Copyright b y 

* 

15 

! X- 

X 

16 

! * Thorr- 5 s Eh 1er t 

X 

17 

! -X 

X 

19 

1 X Ber.oetigte Geriete 

X 

20 

! X TI99/4A Konsole 

X 

21 

! X Ext. Basic 

X 

22 

! * 

X 

26 

! X Speieherbe1egun 3 

X 

27 

! 6 3450 Bytes 

X 

28 

* X 

X 

29 

! X * Y * X X X * * XX X X x xxxx xxxx 

180 

CALL CLEAR 


190 

CALL SCREEN ( 2 > 


200 

FÜR T = 1 TO 12 : : CALL 

CO 

LOP (I. 16,2) .* ' NE/<7 I 


210 

EI3P1 AY A T (6,3) : "M 0 

4T; 

rr 

G E N E R A T 0 R" . 



220 DISF’LA*' AT UO, 3? : "BUCHST 
ATSN, ZAHLEN UND ZEI- CHEN W 
ERDEN DIREKT FINGEGE- EEN. Z 
U BEACHTEN IST NUR DIE" 

230 DISn.AY AT < J ^ ,3) :" FOLGE 
SDE TASTENTELEGLNC-: " 

240 DISPLAY AT( i6 ,3):"ENDE.. 

...; * < IRRUNG 

. ..# ' UEBERM 

•“TI UNOSENDE,-, . > 7 •: ” 

250 DISPLAY AT(24,?>:": '' < 
J5RUECKEN" 

260 CALL kFY(0,K,S>:: i c s=o 
THEN 260 • • 

270 IF K~126 THEN 230 ELSE 2 
60 

280 CALL CLEAR 

290 A=i :: F=330 <DD=200 I 

: D=90 

300 CALL KEY(0,K,S5:: IF S=0 


THEN : 

300 





310 

0 

IF 

K-32 

THEN 

760 

ELSE 

32 

320 

30 

IF 

K-94 

THEN 

207‘ 

0 ELSE 

: 3 

330 

0 

IF 

K=65 

THEN 

/'SO 

ELSE 

34 

340 

0 

IF 

K=66 

THEN 

sie 

ELSE 

35 

350 

r- 

IF 

K=6~ 

THEN 

340 

ELSE 

36 

U 

360 

0 

IF 

K-68 

THEN 

370 

ELSE 

37 

370 

0 

IF 

K~69 

THEN 

900 

ELSE 

38 

380 

0 

IF 

K-70 

THEN 

930 

ELSE 

39 

390 

0 

T ~ 

K=71 

THEN 

960 

ELSE 

40 


400 

IF 

K—72 

THEN 

990 ! 

ELSE 

41 

Oc 







410 

20 

IF 

K-73 

THEN 

1020 

ELSE 

4 

420 

30 

IF 

K=74 

THEN 

1050 

ELSE 

4 

430 

40 

IF 

K=75 

THEN 

1030 

ELSE 

4 

440 

50 

IF 

1--76 

THEN 

1110 

ELSE 

4 

450 

60 

IF 

K=77 

THEN 

1140 

ELSE 

4 

460 

70 

IF 

K' = 7S 

THEN 

1170 

ELSE 

-» 

470 

SO 

IF 

!>79 

THEN 

1200 

ELSE 

4 

480 

90 

Tr 

K~30 

THEN 

1 230 

ELSE 

4 

490 

00 

IF 

K-8.i 

THEN 

1260 

ELSE 

er 

500 

10 

510 

IF 

K=c2 

THEN 

1290 

ELSE 

er 

IF 

K = 0 3 

THEN 

‘1 220 

ELSE 

er 

0 

z‘J 

520 

30 

IF 

K~ 84 

THEN 

1350 

ELSE 

er 

530 

40 

IF 

K = 85 

THEN 

1380 

ELSE 

er 

540 

er e. 

IF 

K-86 

THEN 

1410 

ELSE 

CT 

W 1 

550 

60 

IF 

K=G7 

THEN 

1440 

ELSE 

5 

560 

70 

IF 

K=88 

THEN 

1470 

ELSE 

c; 

570 

rr **. 

IF 

K=8 9 

THEN 

1500 

ELSE 

5 

580 

90 

IF 

K=90 

THEN 

1530 

ELSE 

er 

590 

00 

IF 

K-44 

THEN 

1560 

ELSE 

6 

600 

10 

IF 

K-46 

THEN 

1590 

ELSE 

6 

610 

20 

IF 

K=58 

THEN 

1620 

ELSE 


620 

30 

IF 

K=45 

THEN 

1650 

ELSE 

6 

630 
* * 

IF 

K-63 

THEN 

1 680 

ELSE 

6 

*4 V_. 

640 

50 

IF 

K=35 

THEN 

1710 

ELSE 

6 

650 

60 

IF 

K=42 

THEN 

1740 

ELSE 

6 

660 
—1 

IF 

K-48 

THEN 

1770 

ELSE 

6 

670 

C w* 

IF 

K=49 

THEN 

1800 

ELSE 

y 

680 

90 

IF 

K=50 

THEN 

1830 

ELSE 

6 

690 

00 

IF 

K=51 

THEN 

1860 

ELSE 

7 
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700 

IF 

K*=52 

THEN 

1890 

ELSE 

7 

10 







710 

IF 

CO 

m 

H 

* 

THEN 

1920 

ELSE 

7 

20 







720 

IF 

K=54 

THEN 

1950 

ELSE 

7 

30 







730 

IF 

K=55 

THEN 

1980 

ELSE 

7 

40 







740 

IF 

K=56 

THEN 

2010 

ELSE 

7 

30 







730 

IF 

K=57 

THEN 

2040 



760 

DISPLAY 

AT (Bi 

,A):CHR*(32) 

770 

A= 

A+l : 

: B=INT(1+('28*(A/ 

786 

) ) ) 

:: goto 300 




780 DISPLAY AT(B,A):CHR$(65) 
790 CALL SOUND(D , F , 0) l : CALL 
PA :: CALL S0UND(DD,F,0):: 
CALL DPA 

000 A=A+1 :: B=INT(1+(28*(A/ 

786))):: GOTO 300 
810 DISPLAY AT(B,A):CHR$<66) 
820 CALL SOUND(DD,F,0):: CAL 
L DPA :: CALL SOUND(D,F,0):: 
CALL PA :: CALL SOUND(D,F,0 

):: call PA :: call sound(D, 

F,0):: CALL PA 

830 A=A +1 :: B=INT(i+(28*(A/ 
786))):: GOTO 300 
840 DISPLAY AT(B,A):CHR$(67) 
830 CALL SOUND(DD,F,0) 1 I CAL 
L DPA :: CALL SOUND(D,F,0 )1 
CALL PA :: CALL SOUND(DD,F, 

0):: call dpa :: call sound< 

D, F,o):: CALL PA 

860 A=A+1 :: B=INT<1+(28*(A/ 

786))):: GOTO 300 

870 DISPLAY AT(B,A):CHR$(68) 

880 CALL SOUND(DD,F,0):: CAL 

L DPA :: CALL SOUND(D,F,0):: 

CALL PA :: CALL SOUND(D,F,0 
) : : CALL PA 

090 A=A+1 :: B=INT(1+(28*(A/ 
786))):: GOTO 300 
900 DISPLAY AT(B,A):CHR$(69) 
910 CALL SOUND(D,F,0 ):\ CALL 
PA 

920 A=A+1 :: B=INT(1+(28*(A/ 
786)) ) : : GOTO 300 
930 DISPLAY AT(B,A):CHR*(70) 
940 CALL SOUND(D,F,0):: CALL 
PA :: CALL S0UND(D,F,0):: C 
ALL PA :: CALL SOUND(DD,F,0) 

:: call dpa :: call sound(D, 

f,0):: CALL PA _ 

930 A=A+1 :: B=INT(1+(28*(A/ 
786))):: GOTO 300 
960 DISPLAY AT(B,A):CHR*(71) 
970 CALL SOUND(DD,F,0):: CAL 
L DPA :: CALL SOUND(DD,F,0): 
: CALL DPA :: CALL SOUND(D,F 
,0):: CALL PA 


980 A-A+1 :: B=INT(1+(28*(A/ 
786))):: GOTO 300 

990 DISPLAY AT(B,A):CHR$(72) 

1000 CALL SOUND(D,F,0 ):l CAL . 
L PA :: CALL SOUND(D,F,0):: 
CALL PA :: CALL S0UND(D,F,0) 

:: CALL PA :: CALL SOUND(D,F 

a \ • r Ai | DA 

ioio’a=a+i :b=int(1 + (28*(A 
/786))):: GOTO 300 
1020 DISPLAY AT (B, A) *.CHR$(73 
) 

1030 CALL SOUND (D, F,0):: CAL 
L PA :: CALL S0UND(D,F,0):: 
CALL PA 

1040 A=A +1 :: B=INT(1+<28*(A 

/786))):: GOTO 300 
1030 DISPLAY AT(B,A):CHR$(74 
) 

1060 CALL SOUND(D,F,0):: CAL 
L PA :: CALL SOUND(DD,F,0):: 
CALL DPA :: CALL SOUND(DD,F 
,0):: CALL DPA :: CALL SOUND 
(DD,F,0):: CALL DPA 
1070 A = A +1 :: B=INT(1+■(28*(A 

/786))):: GOTO 300 
1080 DISPLAY AT<B,A):CHR$(75 
) 

1090 CALL SOUND ( DD,F, 0):: CA 
LL DPA :: CALL SOUND (D, F,0) : 

: CALL PA :: CALL SOUND(DD,F 
,0):: CALL DPA 

1100 A=A+ 1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1110 DISPLAY AT(B,A):CHR$(76 
) 

1120 CALL SOUND(D,F,0)•I CAL. 
L PA :: CALL S0UND(DD,F,0)I: 
CALL DPA :: CALL SOUND(D,F, 

0):: call pa :: call sound(D 

,F,0): ; CALL PA 
1130 A=A+1 :: B=INT(i+(28*(A 
/786))):: GOTO 300 
1140 DISPLAY AT(B,A):CHR$<77 
) 

U50 CALL SOUND (DD, F, 0) : l CA 
LL. DPA :: CALL SOUND (DD, F, 0) 

■ » PA1 I nPA 

1160 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1170 DISPLAY AT(B,A):CHR$(78 
) 

1180 CALL S0UND(DD,F,0):: CA 
LL DPA :: CALL SOUND(D,F,0): 

« CALL PA 

1190 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1200 DISPLAY AT(B,A):CHR$(79 
) 

1210 CALL DPA :: CALL SOUND( 
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dd,f,0):: CALL dpa :: CALL s 
OUND(DD,F, 0):: CALL DPA :: c 
ALL SOUND(DD,F,0):: CALL DPA 
1220 A=A + 1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1230 DISPLAY AT<B,A):CHR$(80 
) 

1240 CALL S0UND(D,F,0):: CAL 
L PA :: CALL S0UND(DD,F,0):: 
CALL DPA :: CALL SOUND(DD,F 

,0):: call dpa :: call sound 
(D,F,0):: call pa 
1250 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1260 DISPLAY AT(B,A):CHR$(81 
) 

1270 CALL SOUND(DD,F,0):: CA 
LL DPA :: CALL SOUND(DD,F,0) 
:: CALL DPA :: CALL SOUND(D, 

F,0):: CALL pa :: call sound 
(DD,F,0) : : CALL DPA 
1280 A = A +1 :: B=INT(1 + (28*(A 
/786))):: GOTO 300 
1290 DISPLAY AT(B,A):CHR$(82 
) 

1300 CALL SOUND(D,F,0):: CAL 
L PA : : CALL SOUND (DD , F , 0 ) : 

CALL DPA ::■CALL SOUND(D,F, 
0):: CALL PA 

1310 A = A +1 :: B = INT(1+(28*(A 
/786))):: GOTO 300 
1320 DISPLAY AT(B,A):CHR$(33 
) 

1330 CALL SOUND(D,F,0):: CAL 
L PA :: CALL SOUND(D,F,0):: 
CALL PA :: CALL S0UND(D,F,0) 

:: CALL PA 

1340 A=A +1 :: B=INT(1+(23*(A 
/786))):: GOTO 300 
1350 DISPLAY AT(B,A>4CHR$(84 
) 

1360 CALL; SOUND(DD,F,0):: CA 
LL. DPA 

1370 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1380 DISPLAY AT(B,A):CHR$(85 
) 

1390 CALL SOUND(D,F,0):: CAL 
L PA :: CALL SOUND(D,F,0):: 
CALL PA :: CALL S0UND(DD,F,0 
CALL DPA 

1400 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1410 DISPLAY AT(B,A):CHR$(86 
) 

1420 CALL SOUND(D,F,0):: CAL 
L PA :: CALL SOUND(D,F,0):: 
CALL PA CALL S0UND(D,F,0) 
:: CALL PA :: CALL SOUND(DD, 
F,0);: CALL DPA 
1430 A=A+1 :: B=INT(1+<28*(A 


/786))):: GOTO 300 
1440 DISPLAY AT(B,A>:CHR$(87 
) 

1450 CALL SOUND(D,F,0):: CAL 
L PA :: CALL SOUND(DD,F,0):: 

CALL DPA :: CALL SOUND(DD,F 
,0):: CALL DPA 

1460 A=A+1 :: B=INT<1+(28*(A 

/786))):: GOTO 300 
1470 DISPLAY AT(B,A):CHR$(83 
) 

1480 CALL SOUND(DD,F,0):: CA 
LL DPA :: CALL SOUND(D,F,0): 

: CALL PA :: CALL SOUND(D,F, 

0):: call pa :: call sound(D 

D,F,0):: CALL DPA 
1490 A = A +1 :: B=INT<1+(28*(A 
/786))):: GOTO 300 
1500 DISPLAY AT(B,A):CHR$(89 
) 

1510 CALL SOUND(DD,F,0):: CA 
LL DPA :: CALL SOUND(D,F,0): 

: CALL PA :: CALL SOUND(DD,F 
, 0) : : CALL DF'A :: CALL SOUND 
(DD,F,0):: CALL DPA 
1520 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1530 DISPLAY AT(B,A):CHR$(90 
) 

1540 CALL SOUND(DD,F,0)II CA 
LL DPA :: CALL SOUND(DD,F,0) 
:: CALL DPA :: CALL SOUND(D, 
F,0):: CALL PA :: CALL SOUND 
(D,F,0):: CALL PA 
1550 A=A+1 :: B=INT(1+(23*(A 
/7S6))):: GOTO 300 
1560 DISPLAY AT<B,A):CHR$(44 
\ 

1570 CALL SOUND(DD,F,0):: CA 
LL DPA :: CALL SOUND(DD,F,0) 
CALL DPA :: CALL SOUND(D, 
F,0):: CALL PA :: CALL SOUND 
(D,F,ö):: CALL pa :: call so 
UND(DD,F,0):: CALL DPA :: CA 
LL SOUND(DD,F,0):: CALL DPA 
1580 A=A+1 :: B=INT(1+(23*(A 
/786))):: GOTO 300 
1590 DISPLAY AT(B,A>:CHR$(46 
) 

1600 CALL S0UND(D,F,0):: CAL 
L PA :: CALL SOUND(DD,F,0):: 

CALL DPA :: CALL SOUND(D,F, 
0):: CALL PA :: CALL SOUND(D 
D,F,0):: CALL DPA :: CALL so 
UND(D,F,0):: CALL PA :: CALL 
SOUND(DD,F,0):: CALL DPA 
1610 A=A+1 :: B=INT(1+(28*(A 
/786))):: GOTO 300 
1620 DISPLAY AT(B,A):CHR$(58 
) 
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1630 CALL SOUND(DD,F,0)I: CA¬ 
LL DPA :: CALL SOUND(DD,F,0) 

:: CALL DPA :: CALL SOUND(DD 
CALL DPA-:: CALL SOU 
ND(D.p,o):: CALL pa :: CALL 
SOUND(D,F,0):: CALL pa :: CA 
LL SOUND<D,F,0)S: CALL PA 

1640 A=Aii :: B*INT(iM28*(A 
/736) ') ) : : GOTO 300 
1650 DISPLAY AT<B,A>:CMR*(45 
) 

1660 CALL SOUND(DD,F,0):: CA 
LL DPA :: CALL SOUND(D,F,0): 

■ CALL PA :: CALL SOUND(D,F, 

0):: CALL PA :: CALL SOUND(D 
. F . 0 :• : : CALL PA :: CALL SOUN 
D(D.F.O);: CALL PA :: CALL S 
(DD, P , ö > : * CALL DPA 
1670 A=AU :: B=INT (1 + ( 23X- (A 
/736>)):: 3070 300 
i630 DI SPLAY AT I E,A):CHR5(63 
\ 

1690 CALL SOUND (D, F , 0) *. : CAL 
L PA :: CALL SOUND(D,F,0):: 
rALL PA :: CALL SOUND(DD,F,0 
\ ' i CALL I-PA :: CALL SOUNDtD 
r.F ; 0):: call DPA :: CALL SG 
UND(D,7.0);: CALL PA CALl 
SOUND iD,F,0):: CALL PA 
1700 A=A ».1 :: S=INT (I M23* (A 
•7 "&))):: GOTO 300 
1710 DISPLAY AT(B,A):CHR$(35 
) 

1720 FDP 1*1 PO S :: CALL SO 
UND •: D, F, 0): 5 CALL PA :: NEXT 

1730 A=A+1 B=INT(1+<23£(A 
/7S£))>:: GOTO 300 
1740 .DISPLAY AT(B,A):CHR5(42 
) 

1750 CALL. SOUND <D, F, 0) : : CAL 
L PA :: CALL SOUND(DD,F,0):: 

CALL DPA CALL SOUND(D,F, 
C):; CALL FA :: CALL SOUND(D 
D,F,0):: CävL DPA :: CALL SO 
UND(D,F,ö >:: CALL PA 
1760 A=A+ 1 B=INT(1+(23*(A 
. /7S6))>:: GOTO 300 
1770 DISPLAY AT(B,A):CHR5(48 


1820 A=A+1 :: B S INT < 1 + (233HA 
/73S))>:: GOTO 300 
1830 DISPLAY AT(E,A):CHR$i50 

1640 CALL SOUND (D,»~ , O) « • CäL 
L PA CALL SOUND.(D, F,0; 5 I 
call PA POP. 1 = 1 TO 3 :: c 
ALL SOUND(DD,F,0):: CALL DPA 
NEXT 

1350 A=A+i :: B=INT(1+<28*<A 
/7S6))> S J GOTO 300 
1960 DISPLAY AT (B, A> *. CHR5 (51 

1870 FÜR 1=1 TO 3 :: CALL SO 
UND(D-F.O):: CAlL NEXT 

I • : CA' l SOUND (DD, F , 0) : ‘ C 
ALL DFA :: CALL SOUND(DD,F,0 
l_, r-l>_ L. DF A 

1380 A=A + i :: 8«JN7(iM28*<A 
'786 ))':} GOTO 300 
1390 ‘ I SPL A V AT (2, A > : CUR 5 ( - 2 

) 

1900 FCP 1=1 TO 4 :: CAlL 30 
UMDiD,F,o:- call PA :: MEXT 

I :: CALL SOUND(DD,F,0):: C 
ALL JPA 

1910 A-A + l B-INT ( 1 + (23*<A 
/786)•;:: GOTO 300 
1920 DISPLAY AT(B,A) : CHR5(53 

1930 FCP 1=1 TO 5 :I CALL SO 
UND\D,F,0> i• CALL PA :: NEXT 

T 

1940 A=A* 1 B=INT(i+(28*(A 
/7S6))):: goto 300 
1950 DISPLAY AT(B,A)ICHR5(54 

1960 CALL 8CUND(DD,F,0) : : CA 
LL. DPA 5 I FOR 1 = 1 TO 4 II CA 
LL SOUND(D,F,0):: CALL PA :: 
NEXT I 

1970 A=A+1 :: B=INT(i*(28*(A 
/786i)):: GOTO 300 
1980 DISPL AY AT(B,A);C HR$(55 

1990 CALL SOUND(DD,F,0)1: CA 
LL DPA :: CALL SOUND(DD,F,0) 
:: CALL DPA :: FOR 1=1 TO 3 
CALL S0UND(D,F,0);! CALL 




1780 FOR 1=1 TO 5 :: CALL SO 
UND(DD,F ; 0):: CALL DPA :: NE 
XT I 

1790 A=A+1 : I B-INT (1 * (2891 (A 
/786))):: GOTO 300 
1600 DISPLAY AT(B,A):CHR5(4? 
) 

1810 CALL SOUND (D,F, 0) : CAL 
L PA':: -FOR 1 = 1 TO 4 :: call 
soumd t DD,p, o):: call dpa :: 

13t NT I 


2000 A=A+1 :: B=INT(1 + (28*(A 
/7S6)) >:: GOTO 300 
2010 DISPLAY AT(B,A):CHR5(56 
) 

2020 FOR 1=1 TO 3 :: CALL SO 
UND (DD, P, 0) : :. CALL DPA :: NE 

>:t i :: call sound(D,f,0) ; : 

CALL PA :: CALL SOUND (D,F,0) 

:: CALL PA 

2030 A=A + 1 :: B=INT (1 M2S* (A 
/7S6 ))):’ GOTO 300 
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2040 DISPLAY AT(B,A):CHR$(5? 
) 

2050 FOR I = J TO 4 :: CALL 80 
UND < DB f F, 05 : : ' CALL. DPA : : NE 


XT I 

r 


CALL 

SOUND ( D,F 

,0) :: 

CALL 

P 

A 

r» 




2060 

A 

-A 

j. j • 

: E'= JNT ( 1 ♦ 

(28* (Ä 

/" 16) 

•. 

t t 


TG 300 


2070 

r 

AL 

L CL 

EAR :: DIS 

PLAY A 

T (J 0; 

7. 

■» • 

"ENI» 

E DER UEBE 

RMITTL 

UHG 






2030 

T. 

7 C 

PLAY 

AT(14,3): 

II 

1} 

2090 

D 

18 

PLAY 

AT(19,1) \ 

" ZUR E 

ENfcUT 

c 

M 

UF T E 

RMITTLU.NG " 


2100 

B 

IS 

PLAY 

AT(21 , 6): 

" > ;RüM 

< * FI 

; • 

v v- 

FFN" 



2110 

r 

UP 

DPA 

:: FÜR 1= 

1 TO 1 

00 : : 


NF 

XT I 

:: SUBEND 


2120 

z 

J !T% 
L 1 I* 

PA 

: : FÜR 1 = 1 

TÜ 50 

: : ti 

r 

XT 

I : 

: SUBEND 
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ASTRONOMIE 

Dieses Programm erledigt viele lästige astro¬ 
nomische Berechnungen für den Amateur¬ 
astronomen. Wenn man die errechneten . 
Werte mit denen des Jahrbuchs vergleicht, 
stellt man fest, daß mit dem relativ gerin¬ 
gem Aufwand doch recht genaue Ergebnis¬ 
se erzielt wurden. 

Die Rechenvorschriften wurden dem Buch 
„Practical Astronomy With Your Calcu- 
lator“ von Peter Duffett - Smith entnom¬ 
men. 

Das Programm im einzelnen: 

Zuerst wird das gewünschte Datum eingege¬ 
ben. Dann kann man über ein Menü be¬ 
stimmte Rechnungen anwählen: 

Die Menüteile enthalten folgendes: 

1) Berechnung folgender Größen für die 
Sonne: 

ekliptikale geozentrische Länge X 
ekliptikale geozentrische Breite ß 
Rectaszension a 
Deklination 8 

Entfernung von der Erde in km und AE 
Einkel große 
Rotationszahl • - 

2) Berechnungen für den angewählten 
Planeten: 

ekliptikale Länge X 
ekliptikale Breite ß 
Rectaszension a 
Deklination 5 

Abstand von der Erde in km und AE 
Lichtzeit vom Planeten bis zur Erde 
Winkel große 
Phase 

Helligkeit (kann stark von der beobach¬ 
teten abweichen) 

Wenn ein beliebiger Körper angewählt wur¬ 
de, müssen für diesen die erforderlichen 


Eingaben getätigt werden. Es ist zu beach¬ 
ten, daß die Berechnungen für einen ellip¬ 
tisch um die Sonne laufenden Körper ge¬ 
macht werden. 

3) Berechnung für den Mond: 

Zuerst muß die Uhrzeit eingegeben wer¬ 
den, da sich der Mond sehr schnell bewegt, 
ekliptikale Länge X 
ekliptikale Breite ß 
Rectaszension a . 

Längengeschwindigkeit * R 
Breitengeschwindigkeit j: 

Phase v 

Abstand von der Erde in km und AE 
Winkelgröße 
Parallaxe 

Bevor die Mondwerte berechnet werden, 
sieht man noch kurz die für die Mondrech¬ 
nung wichtigen Sonnenwerte (vorteilhaft 
für die Berechnung von Finsternissen) an. 

4) Der Winkel zwischen zwei Objekten von 
denen die Rectaszension und Deklina¬ 
tion bekannt ist, wird berechnet. 

5) Eingabe eines anderen Datums 

0) Ende Frank Rieger 


PLANETEN- 
POSITIONEN 

Dieses Programm kann die heliozentrischen 
Positionen aller 9 Planeten berechnen und 
auf dem Bildschirm anzeigen. 

Dazu muß nur das gewünschte Datum, die 
Datumserhöhung in Tagen und das Koordi¬ 
natensystem (d.h. die Vergrößerung) ange¬ 
geben werden. Das Koordinatensystem 
wird so angelegt, daß die positive x-Achse 
in Richtung des Frühlingspunktes weist. 

Zu Beginn des Programms stehen in den 
DATA-Statements die benötigten Bahn¬ 
elemente zur Epoche 1.1.1975. 

Die Reihenfolge ist wie folgt: 

1Umlaufzeit um die Sonne 

2. Mittlere Anomalie zur Epoche 1.1.1975 

3. Numerische Exzentrizität e 

4. Abweichung der Exzentrizität 

5. Große Halbachse in AE a 

6. Länge des Perihels (Grad) €5 

7. Abweichung des Perihels 

8. Länge des aufsteigenden Knotens 
(Grad) i/b 

9. Abweichung des Knotens 

10. Neigung gegen die Ekliptik (Grad) i 

11. Abweichung der Neigung 

Die korrigierten Bahnelemente werden wie 
folgt berechnet: _ • 

Wertk aT = Wert + Abweichung x Tage, 

wobei Tage = Anzahl der Tage zwischen 
dem 1.1.1975 und dem eingegebenen Datum 
ist. 

Die Bahnelemente habe ich aus Bruno 
Staneks „Planetenlexikon“ bezogen. 

Zur Berechnung der rechtwinkligen Koordi¬ 
naten habe ich die üblichen Formeln benutzt. 


» 
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10 REM******************** 

11 REM*Prakt. Astronomie * 

12 REM* * 

13 REM* Copyright by * 

14 REM* * 

15 REM* Frank Rieger * 

16 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 11754 Bytes * 

25 REM******************** 

26 REM 

100 CALL CLEAR 

110 PI = 3.14159265359 

120 JUL1980=2444238.5 

130 EKLIPTIK®.4091380586705 

140 DEF ARCCOS(X)=ATN(SQR(1- 

X A 2)/X) 

150 DEF ARCSIN(X)=ATN(X/SQR( 
i-X A 2) ) 

160 DEF AB (X) =X-SGN (X) * (INT ( 

{ABS(X)+360*.5*ABS(SGN(X)-1) 

>/360))*360 

170 DEF DATUM$=STR$(TAG). 
"BcSTR^ (MONAT) 6c" . "kSTR$ (JAHR 
) 

180 DEF ANG(X)=AB(X)-INT(AB( 
X)/ 360)*360 

190 CALL CHAR ( 130,"003043504 
8704000") 

200 CALL CHAR( 131,"006010031 
4244200") 

210 CALL CHAR(132,"006294889 
4620000") 

220 CALL CHAR'(133, "000E10305 
3433000") 

230 CALL CHAR ( 129,"003048483 
0") 

240 CALL CHAR(134,"0020202") 

250 REM DATEN LESEN 

260 GOSUB 2780 

270 CALL CLEAR 

280 PRINT "DATUM:"*. : 

290 INPUT "TAG:." : T 

AG 

300 INPUT "MONAT (1-12): M : I* 


'003043504 


006294889 
'000E10305 
■003048483 
* 0020202 ") 


300 INPUT "MONAT (1-12): ":n 
ONAT 

310 INPUT "JAHR:. M :J 

AHR 

320 CALL CLEAR 

330 PRINT "BERECHNUNG FUER:" 

: : : :"i.SONNE": : "2... 

..PLANETEN": :"3.. ...MOND": 

340 PRINT "4..... WINKEL ZWIS 

CHEN ZWEI.OBJEKTEN".*. 

."5.....NEUES DATUM": :"0... 
..ENDE": : : : : 

350 STATUS=0 


360 CALL KEY(0,KEY,STA) 

370 IF STA=0 TUEN 360 

380 IF -((KEY>47)*(KEY<54,))T 

HEN 410 

390 CALL SOUND(500,200,0) 

400 GOTO 360 

410 ON KEY-47 GOTO 1100,420, 

720,500,540,270 

420 REM SONNENPOSIT ION 

430 CALL CLEAR 

440 PRINT DATUMS: : 

450 GOSUB 1270 

460 REM ENTFERNUNG UND WINKE 

LGROESSE 

470 GOSUB 1320 

480 CALL KEY(0,KEY,STA) 

490 IF STA = 0 THEN 430 ELSE 3 
20 

500 REM -’HCHDFOSITION 

510 GOSUB 3060 

520 CALL KEY(0,KEY,STA) 

530 IF STAfO THEN 520 ELSE 3 
20 

540 CALL CLEAR 

550 INPUT "GEBEN SIE FUER 

DAS 1.OBJEKT IN STUNDEN 

, MINUTEN..UND SEKUNDEN EIN: 

’ " : A, B, C 

560 ALPHA1=A+(B+C/60)/60 
570 FRINT 

580 INPUT "GEBEN SIE FUER 

DAS 1.OBJEKT IN GRADE, 

MINUTEN....UND SEKUNDEN EIN: 
": A B C 

590 DELTA 1 =SGN (A) * (ABS (A) + •( B 

+C/60)/60)*PI/180 

600 PRINT 

610 INPUT "GEBEN SIE FUER 

DAS 2.OBJEKT IN STUNDEN 

, MINUTEN..UND SEKUNDEN EIN: 

620 ALPHA2=A+(B+C/60)/60 


630 PRINT 

640 INPUT "GEBEN SIE FUER 

DAS 2.OBJEKT IN GRADE, 

MINUTEN....UND SEKUNDEN EIN: 

n . a £ Q 

650 DELTA2=SGN(A)*(AES(A)+(B 

+C/60)/60)*PI/ISO 

660 DELTA®ARCCOS(SIN(DELTA1) 

*SIN(DELTA2)+COS(DELTA1)*COS 

(DELTA2)*COS((ALPHA1-ALPHA2) 

*15*PI/130))*1SO/PI 

670 REM STUNDEN-WINKEL 

680 GOSUB 1620 

690 CALL CLEAR 

700 PRINT "WINKEL ZWISCHEN D 

EN BEIDEN": :"OBJEKTEN ="?GR 

ADJ " " ; STR$ (MINUTE! )lc" . . !, kS 

TR$(SEKUNDE1)LCHR$ < 34) 












PRAKTISCHE ASTRONOMIE 


710 GOTO 520 

720 NUMMER=3 

730 REM POSITION 

740 GOSUE 1930 

750 VE=VP 

760 RE=RP 

770 LE=L 

780 CALL CLEAR 

790 PRINT "PLANETENWAHL:": : 

:"1.,.MERKUR": :"2,.- VENUS" 

: :"4...MARS": :"5...JUPITER 

:"6...SATURN": : 

SOO PRINT "7...URANUS": :“8. 

..NEPTUN": :"9...PLUTO": :" 3 
...BELIEBIGER KOERPER": :"0. 

..ENDE" 

810 CALL KEY(0,KEY,STA) 

820 IF STA=0 TUEN 810 

830 IF -((KEY>47)*(KEY<58))T 

HEN 360 

B40 CALL SOUND(500,200,0) 

850 GOTO 810 
860 NUMMER=KEY-48 
870 CALL CLEAR 
880 IF NUMMER=0 THEN 330 
890 IF NUMMER<>3 THEN 1030 
900 PRINT "EINGABE FOLGENDER 
DATEN:": : 

910 PRINT "WINKEL IN GRAD !! 

I» 

920 INPUT "UMLAUFZEIT IN TRO 
PISCHEN....JAHREN !: ".'PLANE 
T(0,1) 

930 INPUT "LAENGE ZUR EPOCHE 
1980 !!: K :PLANET(0,2) 

940 INPUT "LAENGE'DES PERIHE 
LS: PLANET(0,3) 

950 INPUT "EXZENTRIZITAET: " 

:PLANET(0,4) 

960 INPUT "HALBACHSE (IN AE 
! !): ":PLANET(0,5) 

970 INPUT "NEIGUNG ZUR EKLIP 
TIK: ":PLANET(0,6) 

980 INPUT "LAENGE DES AUFSTE 

IGEMDEN_KNOTENS: "I PLANET 

(0,7) 

990 INPUT "WINKELGROESSE IN 

1 AE.ENTFERNUNG (IN AR 

CSEC): PLANET(0,8) 

1000 INPUT "HELLIGKEITSFAKT0 
R: " :PLANET(0,9) 

1010 NUMMER=0 . 

1020 CALL CLEAR 
1030 PRINT DATUM*: : 

1040 REM PLANETEN 

1050 GOSUB 2050 

1060 REM ENTFERN.LICHTZEIT... 

1070 GOSUB 2560 

1080 CALL KEY(0,KEY,STA) 

1090 IF STA=0 THEN 1030 ELSE 


780 

1100 END 

1110 REM JULIANISCHES DATUM 

1120 IF - ( (MONAT< > 1) *(MONAT< 

>2))THEN 1160 

1130 JAHR1=JAHR-1 

1140 MONAT1»MONAT + 12 

1150 GOTO 1180 

1160 MONAT1«MONAT 

1170 JAHR!»JAHR 

1180 A=INT(JAHR1/100) 

1190 IF JAHR+MONAT/1OO+TAG/1 
0000<1582.0915 THEN 1220 
1200 B=2-A+INT(A/4) 

1210 GOTO 1230 
1220 B=G 

1230 C»INT(365.25*JAHR1) 

1240 D=INT(30.6001*(MONAT1+1 
) ) 

1250 JUL=B+C+D+TAG+1720994.5 
1260 RETURN 

1270 REM SONNENPOSITION 
1280 PRINT "BERECHNUNG FUER 
DIE SONNE:": : 

1290 GOSUB 1110 

1300 D=JUL-JUL1980 

1310 IF STATUS< >1 THEN 1330 

1320 D=D+DATSTUNDE/24 

1330 N=360*D/365.2422 

1340 N=ANG(N) 

1350 M=N+SONNE(1)-SONNE(2) 
1360 M-ANG(M) 

1370 EXZENT»SONNE(3) 

1380 REM KEPLER 
1390 GOSUB 2710 
1400 V=180/PI*(2*ATN(TAN(E/2 
)*SQR((1+EXZENT)/(1-EXZENT)) 

) ) 

1410 LAMBDAS=V+SONNE(2) 

1420 LAMBDA8=ANG(LAMBDAS) 
1430 LAMBDA=LAMBDAS*PI/1SG 
1440 BETA=0 

1450 PRINT " = " i STR*(LAMBD 
AS)>"":: 

1460 PRINT " = "J STR*(BETA) 

■ n « • . 

i • • 

1-470 REM KOORDIANTEN 

1480 GOSUB 1520 

1490 PRINT " = H ;STUNDEI"H"| 

MINUTEj "min" ? SEKUNDE,' "s": : 

1500 PRINT " = "JCHR*(45*AB 

S( (SGN(DELTA)-1)/2))JSTR*(GR 

AD);" ";STR$(MINUTEl)ec" "6c 

STR* (SEKUNDE 1) 6cCHR* (34 ) : : 

1510 RETURN 

1520 REM KOORDINATEN 

1530 DELTA=ARCSIN(SIN(BETA)* 

COS(EKLIPTIK)+COS(BETA)*SIN( 

EKLIPTIK)*SIN(LAMBDA))*180/P 

I 


» 
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PRAKTISCHE ASTRONOMIE 


1540 Y=SIN(LAMBDA)*COS(EKLIP 
TIK)-TAN(BETA)*SIN(EKLIPTIK) 

1550 X=COS(LAMBDA) 

1560 REM QUADRANT 
1570 GOSUB 1760 
1580 ALPHA=ALPHA/15 
1590 REM STUNDEN-WINKEL 
1600 GOSUB 1620 
1610 RETURN 

1620 REM STUNDEN-WINKEL 
1630 HILF=ALPHA 
1640 STUNDE=INT(HILF) 

1650 HILF=(HILF-STUNDE)*60 
1660 MINUTE=INT(HILF) 

1670 HILF=(HILF-MINUTE)*60 
1680 SEKUNDE=INT(HILF) 

1690 HILF=ABS(DELTA) 

1700 GRAD=INT(HILF) 

1710 HILF=(HILF-GRAD)*60 
1720 MINUTE1=INT(HILF) 

1730 HILF=(HILF-MINUTE1)*60 
1740 SEKUNDE1=INT(HILF) 

1750 RETURN 
1760 REM QUADRANT 
1770 IF X >0 THEN 1300 
1780 ALPHA=ANG(ATN(Y/X)*180/ 

PI+180) 

1790 RETURN 

1800 ALPHA=ANG(ATM(Y/X)*180/ 

PI) 

1810 RETURN 

1820 REM ENTFERNUNG UND WINK 
ELGROESSE DER SONNE 
1830 F =(1+SONNE(3)*C03(V*PI/ 

180))/(1-SONNE(3) A 2) 

1840 RS=SONNE(4)/F 
1350 PRINT “ENTFERNUNG = M ?RS 

j "KM” : ". H i RS / 14959 

7870;"AE": ; 

1860 WINKELGS=F*SONNE(5) 

1870 DELTA=WINKELGS 
1880 REM STUNDEN-WINKEL 
1890 GOSUB 1620 
1900 PRINT "WINKELGROESSE = 

";STR*(GRAD)J " M ;STR*(MINUT 
El)|"..■ JSTR*(SEKUNDE1)J CHR* 
(34)1 ; 

1910 PRINT "ROTATIONSZAHL =" 

?INT(1690+(JUL-2444235.34)/2 
7.2753+.5); : 

1920 RETURN 
1930 REM POSITION 
1940 REM JULIANISOHES DATUM 
1950 GOSUB 1110 
1960 D=JUL- JUL1980 
1970 M-ANG(360/365.2422*D/PL 
ANET (NUMMER,1)+PLANET(NUMMER 
,2)-PLANET(NUMMER,3)) 

1980 EXZENT«PLANET(NUMMER,4) 
1990 REM KEPLER 

QO 


2000 GOSUB 2710 

2010 VP=(2*ATN(TAN(E/2)*SGR( 

(1+EXZENT)/(1-EXZENT)))) 

2020 L=VP*180/PI+PLANET(NÜMM 
ER,3) 

2030 RP=PLANET(NUMMER,5)*(1- 

EXZENT A 2)/(1+EXZENT*COS(VP)) 

2040 RETURN 

2050 REM PLANETEN 

2060 PRINT "BERECHNUNG FUER: 

"JNAME*(NUMMER): : 

2070 REM POSITION 

2080 GOSUB 1930 

2090 V1*VP 

2100 R1=RP 

2110 REM KORREKTION 

2120 GOSUB 2390 

2130 L 1=L +DELTAL 

2140 PP=ARCSIN (SIN ((LI-PLANE 

T(NUMMER,7))*PI/130)*SIN(PLA 

NET(NUMMER,6)*PI/130)) 

2150 Y=SIN((Ll-PLANET(NUMMER 
,7))*FI/iSO)*COS(PLANET(NUMM 
ER,6)*PI/180) 

2160 X=COS((LI-PLANET(NUMMER 
,7))*PI/180) 

2170 REM QUADRANT 

2180 GOSUB 1760 

2190 L2=ALPHAfPLANET(NUMMER, 

7) 

2200 R2=R1*C0S(PP) 

2210 IF NUMMER<4 THEN 2250 
2220 LAMBDA=ATN(RE*SIN((L2-L 
E)*PI/130)/(R2-RE*C0S((L2-LE 
) *PI / 130) ) ) *1S0/PI +L2 
2230 LAMBDA=ANG(LAMBDA) 

2240 GOTO 2270 
2250 A=ATN(R2*SIN((LE-L2)*PI 
/ISO)/(RE-R2*C0S((LE-L2)*PI/ 
130)))*180/PI 
2260 LAMBDA=ANG(180+LE+A) 
2270 BETA=ATN(R2*TAN(PP)*SIN 
((LAMBDA-L2)*P1/180)/RE/SIN( 
(L2-LE)*PI/180))*180/PI 
2280 PRINT " = " ;STR*(LAMBD 

^ j . n w « • 

2290 PRINT " = STR*(BETA) 

« n n • • 

2300 LAMBDA=LAMBDA*PI/ISO 
2310 BETA-BETA*PI/180 
2320 REM KOORDINATEN 
2330 GOSUB 1520 
2340 ALPHAP=ALPHA 
2350 DELTAP=DELTA 
2360 PRINT " = STUNDE;" H 
«;MINUTE;"min-iSEKUNDEJ*s": 

2370 PRINT " = "J CHR*(45*AB 
S((SGN(DELTA)-1)/2));GRAD J" 

"BcSTR* (MINUTE! )&£".. "ß,STR*(S 






NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


rrif.s'ty 

■ I MAGAZIN 

I Ifür 

I I TI 99/4A 
AM&TI PC 

REVUE 


KOMMT REGELMÄSSIG 

Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Euer" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 30 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
- fotokopieren oder abschreiben, in einen Brief¬ 
umschlag und ab per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


Verlag widerrufen— Postkarte ge¬ 
nügt. Ansonsten läuft dieser Auf¬ 
trag jeweils für sechs Ausgaben, 
wenn ihm nicht vier Wochen 
vor Ablauf widersprochen wird, 
weiter. 


ZU IHNEN 
INS HAUS 


DAS SUPER-SONDER¬ 
ANGEBOT: 

PRIVATE 

KLEINANZEIGEN 

KOSTENLOS! 


Das bietet Ihnen ab sofort die Tl-Revue: KLEIN¬ 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen d 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 
serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 2,50 plus Mehrwertsteuer! 


Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab¬ 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes - Computer - gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu¬ 
läßt. 
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| KASSETTEN¬ 
SERVICE 

Wollt Ihr nicht mehr seitenlange Listings eintip- 
I pen? Dann benutzt unseren Kassetten-Service: Für 
I ganze zehn DM - nur Vorkasse, keine Rechnung - 
I keine Nachnahme - erhalten Sie alle angebotenen 
[ Listings des jeweiligen Heftes auf Kassette per Post* 
ins Haus. Achtung: Bestellungen ohne Geld werden 
j nicht bearbeitet! Lieferzeit: In der Regel zwei bis drG. 

I Wochen! Wichtig: Unsere Kassetten werden digital in 
I einem Profistudio von einem Masterband gezogen, 

I nicht irgendwie per Recorder runtergenudelt. Selbst- 
l verständlich volles Umtauschrecht bei Nichtfunktio- 
! nieren. 


\ 

WICHTIG 

Aus gegebenem Anlaß weisen wir erneut darauf hin 
daß aufgrund der Speicherkapazität des TI 99/4/ 
leider Programme mit mehr als 11,5 Kilobyte Läng 
nicht auf Kassette abspeicherbar und dementsprechem 
auch nicht auf den Programm-Kassetten enthaltei 
sind! Diese Programme können ausschließlich übe 
den Disketten-Service bezogen werden! 


\ 


i . 


ABO SERVICE-KARTE 


K 



Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 


Bitte senden Sie mir bis auf Wider* 
ruf ab sofort jeweils die nächsten 
sechs Ausgaben an untenstehende 
Anschrift. 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI REVUE 

Abo-Service 7 
Postfach 1107 

8044 UNTERSCHLEISSHEIM 


Name__ 

Vorname____ 

Straße/Hausnr.___ 

Rz/Ort_1_ - 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto y- 

bei (Bank) und Ort_ 

Kontonummer__ 

Bankleitzahl_____ 

(stehtauf jedem Kontoauszug) 

Unterschrift__ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 

Unterschrift___ 
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GEWINNSPIEL II 

WIR VERLOSEN EINEN MSX COMPUTER 
UND 99 COMPUTER-UHREN! 

Liebe Freunde, liebe Leser, 
nichts ist teurer als Papier beim Zeitschriftenmachen. 
Deshalb schwelt seit langem zwischen Verlag und 
Redaktion ein Streit. Es geht um folgendes: 

Allein für den Preis des Kunstdruck-Umschlages der 
TI-REVUE könnten wir den Umfang des Heftes um 
16 Seiten erweitern, Erweitern, ohne daß Sie dies 
einen Pfennig mehr am Kiosk kostet. Dafür müßten 
Sie, die Käufer, allerdings auf dieses Kunstdruckpapier 
verzichten und mit einem dünneren Papier vorlieb 
nehmen. 

Da sich Redaktion und Verlag über den richtigen Weg 
nicht einigen können, rufen wir hier einfach Sie, die 
Käufer, zum Schiedsrichter auf. Indem Sie abstimmen 
Kreuzen Sie einfach Ihre Meinung an, trennen Sie den 
Coupon heraus und schicken Sie ihn - als Drucksache 
im Briefumschlag (50 Pfennig Porto) - an uns zurück. 
DAMIT SIE SICH DIE MÜHE NICHT UMSONST 
MACHEN: UNTER ALLEN EINSENDERN VERLO¬ 
SEN WIR EINEN MSX-COMPUTER MIT 64 K 
RAM SOWIE ALS TROSTPREIS 99 COMPUTER¬ 
UHREN (Selbstverständlich unter Ausschluß des 
Rechtsweges.) Einsendeschluß: 30. Oktober 1985. 
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PROGRAMMSERVICE 

---»f- 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die freigegebenen Listings dieses Heftes auf 
□ Kassette (10 DM) □ Diskette > (25 DM) Zutreffendes bitte ankreuzen! 

Ich zahle: 

Gegen Nachnahme plus Postgebühren ( ) 

Gegen Vorausrechnung ( ) — Versand am Tag des Geldeinganges 

Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname) ..;....'. 

Meine Kontonummer. 


r *- ... . 

Meine Bankleitzahl.. . (steht auf jedem Bankauszug) 

Vorname.Nachname. 

Str./Nr. PLZ/Ort .... 


Hiermit bestätigen ich mit meiner Unterschrift, Ihre Verkaufsbedingungen 
gelesen zu haben und zu akzeptieren. 

Unterschrift... 

Bitte ausschneiden und einsenden an 
TI-SPECIAL 
KASSETTENSERVICE 7 
Postfach 1107 
8044 Unterschleißheim 
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PRAKTISCHE ASTRONOMIE 


EKUNDEi > 8tCHR$ < 34) : : 

2380 RETURN * 

2390 REM KORREKTION FUER JUP¬ 
ITER UND SATURN 
2400 DELTAL=0 

2410 IF SGN((NUMMER=5)+(NUMM 
ER=6))THEN 2430 
2420 RETURN • 

2430 ABT =(JUL-2415020)/36525 
2440 ABA=ABT/5+.l 
2450 ABP=237.47555+3034.9061 
*ABT 

2460 ABQ=(265.9165+1222. 1139 
*ABT) 

2470 ABV= (5*ABQ-2*ABP) *PI/1S 
0 

2480 ABB=(ABQ-ABP) *PI/1 SO 
2490 AB3=ABQ*PI/130 
2500 IF NUMMER=6 THEN 2530 
2510 DELTAL= ( . 3314-. 0103*ABA 
> *SIN(ABV> -.0644*ABA*C0S(ABV 
) 

2520 RETURN 

2530 DELTAL= ( . 1609*ABA-. 0105 
)*CüS(ABO) + <.0132*ABA-.8142 > 
*SIN(ABV)1483*3IN(ABB)-.04 
08*SIN(2*ABB) 

2540 DELTAL=DELTAL+.0856*SIN 
(ABB)*CÜS(ABQ)+.0313*CQS(ABB 
>*SIN(ABQ) 

2550 RETURN 

2560 REM ENTFERNUNG,LICHT2EI 
T, UINK'ELGROESSE 
2570 ABSTAND = SQR(RE A 2 + R1 '*2-2 
*RE*RJ*CQ3((LI-LE)*PI/130)) 
2580 PRINT "ABSTAND ="JABSTA 

ND*149597870; "KM" I ".“ 

;ABSTAND;"AE": : 

2590 ALPHAS-ABSTAND*. 1336 
2600 REM STUNDEN-WINKEL 
2610 GOSUB 1620 
2620 PRINT "LICHTZEIT ="JSTU 
NDE:"H"?MINUTE?"min"jSEKUNDE 

;"5"; ; 

2630 WINKEL=PLANET(NUMMER,8) 
/ABSTAND 

2640 PRINT "WINKELGRÜESSE =" 

;INT(WINKEL*10Ö)/100;"ARCSEC 

11 • • 

* • 

2650 REM PHASE 

2660 PHASE=.5*(1+C0S((LAMBDA 

-(L1*PI/180)))) 

2670 PRINT "PHASE ="JPHASE: 

2680 HELLIGKEIT=5*(LOG(R1*AB 
STAND/PLANET(NUMMER,9)7 SQR(P 
HASE))/LOG(10))-26.7 
2690 PRINT "HELLIGKEIT =";HE 
LLIGKEIT; "rn" 

2700 RETURN 
2710 M1=M*PI/180 


2720 E=M1 

2730 H1=E-EXZENT*SIN(E)-Ml 
2740 IF ABS(Hl)<=1E-10 THEN 
2770 

2750 E=E-H1/(1-EXZENT*COS(E) 

) 

2760 GOTO 2730 
2770 RETURN 
2780 REM DATEN 

2790 DATA 278.33354,232.5964 
03,.016718,149597870,.533128 
2800 FÜR T=i TO 5 
2810 READ SONNE(T) 

2820 NEXT T 

2830 DATA .24085,231.2973,77 
.1442123,.2056306,.3370986,7 
.0043579,48.0941733,6.74,1.9 
18E-6 

2840 DATA .61521,355.73352,1 

31.2395792.. 0067826..7233316 
.2.394435,76.4997524,16.92,1 

idi t_*=; 

2350 DATA 1.00004,93.83354,1 
02.596403,.016718,1,0,0,0,0 
2860 DATA 1.88089,126.30783, 

335.6903166.. 0933865.1.52368 
So.1.8498011,49.4032001,9.36 
,41537E-6 

2870 DATA 11.86224,146.96636 
5, 14.0095493,.0484658,5.2025 
61,1.2041919,100.2520175,196 
.74,1.994E-4 

2830 DATA 29.45771,165.32224 

2.92.6653974.. 0556155.9.5547 
47,2.4393741,113.4888341,165 

..6,1.74E-4 

2890 DATA 84,01247,228.07085 

51.172.7363238.. 0463232.19.2 

1314.. 7729895.73.8768642.65. 
8,7.768E-5 

2900 DATA 164.79558,260.3578 

993.47.8672148.. 0090021.30.1 
0957,1.77 J 6017,131.5606494,6 
2.2 7.597E-5 

2910 DATA 250.9,209.439,222. 

972.. 25387.39.93459.17.137, 1 
09.941,3.2,4.073E-6 

2920 FOR T=1 TO 9 
2930 FOR Q=i TO 9 
2940 READ PLANET(T,Q) 

2950 NEXT Q 
2960 NEXT T 

2970 DATA KOERPER,MERKUR,VEN 
US,ERDE,MARS,JUPITER,SATURN, 
URANUS,NEPTUN,PLUTO 
2980 FOR T=0 TO 9 
2990 READ NAME$(T) 

3000 NEXT T 

3010 DATA 64.975464,349.3330 

63.151.950429.5.145396.. 0549 



PRAKTISCHE ASTRONOMIE 


,.5181,334401,.9507 
3020 FOR T=1 TO 8 
3030 READ MOND(T) 

3040 NEXT T 

3050 RETURN 

3060 REM MONDPOSITION 

3070 STATUS=1 

3080 INPUT "STUNDEN: ":DATST 
UNDE1 

3090 INPUT "MINUTEN: u :DATMI 
NUTE 

3100 DATSEK=(JAHR-1930)+51 
3110 DATSTUNDE“(DATSEK/60+DA 
TMINUTE>/60+DATSTUNDE1 
3120 CALL CLEAR 
3130 GOSUE 1270 
3140 MS=M 

3150 L=ANG (13. 1 763966*D+M0ND 
(1 ) ) 

3160 MM=ANG(L-.1114041#D-M0N 
D(2) ) 

3170 N=ANG(MOND(3)-.0529539* 
D)#PI/180 

3180 EV=1.2739#SIN(<2#<L-LAM 
BDAS)-MM)#PI/180) 

3190 MK=MM + EV-.1858#SIN(MS#P 
I/1 SO)-.37#8IN(MS#PI/180) 
3200 LK=L+EV+6.2886#SIN(MK#P 
1/180)185S#SIN(MS*PI/180)+ 
.214#SIN(2#MK*P1/180) 

3210 LK2=(.6583*SIN((2*(LK-L 
AMBDAS)#PI/180))+LK)*PI/180 
3220 NK=(N#180/PI-.16#SIN(MS 
#PI/180))#PI/180 
3230 Y=SIN(LK2-NK)#COS(MOND( 
4)#P1/180) 

3240 X=COS(LK2-NK) 

3250 REM QUADRANT 

3260 GOSUB 1760 

3270 LAMEDAM=ALPHA+NK#180/PI 

3280 BETAM-ARCSIN(SIN(LK2-NK 

)#SIN(MOND(4)#PI/130))#180/P 

I 

3290 LAMBDAM=ANG(LAMEDAM) 
3300 LAM£DA=LAMBDAM#PI/180 
3310 EETA=BETAM#PI/130 
3320 REM KOORDINATEN 
3330 GOSUB 1520 .. - 

3340 CALL CLEAR 

3350 PRINT -DATUMS;*.";DA 

TSTUNDE1;"UHR"5 DATMINUTE: : 
3360 PRINT "BERECHNUNG FUER 
DEN MOND:": : 

3370 PRINT " = ";STRS(LAMBD 
AM);"": : 

3380 PRINT " = ";STRS(BETAM 

% • tl II ■ • 

/ » • • 

3390 PRINT " =";STUNDE;"H"J 
MINUTE;"min";SEKUNDE;"s": : 
3400 PRINT ■ = °;CHR$(45*AB 
S(<SGN<DELTA)-1)/2))JSTR*(GR 


AD) 8c" "ficSTRS (MINUTEI) 8c" "8c 
STR* (SEKUNDE1) &CHR*(34) : : 
3410 BETAPH=.05#C0S(LK2-NK) 
3420 LAMBDAPH=.55+.Ö6#C0S(MK 
#PI/180) 

3430 PRINT "/STUNDE LAME 
DAPH;"/H": : 

3440 PRINT "/STUNDE =";BETA 
PH;"/H": : 

3450 PHASE=.5#(1-COS(LK2-LAM 
BDAS#PI/180)) 

3460 PRINT "PHASE =";PHASE: 

3470 ABSTAND=(1-MOND(5) A 2)/( 
1+MOND (5) #COS (MK#F'I /180+6.28 
86#SIN(MK#PI/130)))#M0ND(7) 
3480 PRINT "ABSTAND =";ABSTA 

ND; "KM" : "."; ABSTAND/ 

149597870: "AE" I 

3490 DELTA=MOND(6)/ABSTAND#M 

OMD(7) 

3500 GOSUB 1620 

3510 PRINT "WINKELGROESSE = 

" ; STR* (GRAD) ; " "kSTR* (MINUT 
El) 8c" . . "&STR* (SEKUNDE DkCHR* 
( 34 ): : 

3520 DELTA=MOND(8)/ABSTAND#M 
OND(7) • 

3530 GOSUE 1620 
3540 PRINT "PARALLAXE = " ; ST 
R* (GRAD ) j " " ScSTR* (MINUTE 1 ) 8c 
" " &STR* (SEKUNDE 1) &CHR* (34) 

; 

3550 CALL KEY(0,KEY,STA) 

3560 IF STA=0 THEN 3550 
3570 CALL CLEAR 
3580 PRINT "WENN SIE DIE REC¬ 
HNUNG FUER": : "EINE STUNDE S 
PAETER .HABEN": : "WOLLEN, DRU 
ECKEN SIE DIE": :"’ENTER’-TA 
STE" 

3590 PRINT ::"SONST DRUECKE 
N SIE EINE": :"BELIEBIGE TAS 
TE" 

3600 CALL KEY(0,KEY,STA) 

3610 IF STA=0 THEN 3600 

3620 IF KEY-13 THEN 3640 

3630 RETURN 

3640 CALL CLEAR 

3650 IF DATSTUNDE1+1<>24 THE 

N 3690 

3660 DATSTUNDEi=0 

3670 TAG=TAG+1 

3680 GOTO 3110 

3690 DATSTUNDE1=DATSTUNDE1+1 

3700 GOTO 3110 
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PLANETEN POSITIONEN 


10 ! **«)Hfr***^**)HHt*4Hfr*** 


11 ! * * 

12 ! * PLANETENPOSITIONEN * 

13 ! * * 

14 ! * Copyright by * 

15 ! * * 

16 ! * Frank Riegen * 

17 ! * * 

18 ! * * 

19 ! * Benoetigte Geraete * 

20 ! * TI99/4A Konsole * 

21 ! * Ext, Basic * 

22 • #■ * 

26 ! * Speicherbelegung * 

27 ! * 5810 Bytes * 

28*! * * 


29 ! 

100 CALL CLEAR :: CALL SCREE 
N(2);: FÜR T=0 TO li :: call 
C0L0R(T,16,1):: NEKT T :: C 
ALL CHAR(131,"8",133,"70707" 

):: DIM A<9,10) 

110 CALL C0LC'R(12,15,1,13,7, 

1 ) 

120 RANDOMIZE :: CALL CHAR(1 
32,"3C7EFFFFFFFF7E3C"):: FOR 
T=3 TO 16 

130 CALL SPRITE(#T,132,T,RND 

#192*1,RND*256+1,INT <RND*30> 

*SC-N(RND-.5> , INT(RND*30)*SGN 

(RND-.5)):: NEXT T 

140 ! ** MERKUR 

150 DATA 87.97,247.7122,.205 

6295,5.59E-10,.3870984,29.03 

153,1.01E~5,43.03496,3.25E-5 

,7.00427,5.01E-3 

160 ! ** VENUS 

170 DATA 224.7,181.36647,.00 

67849,-1.3E-9,.7233302,54.76 

455,1.39E-5,76.45477,2.47E-5 

,3.39438,2.75E-3 

180 ! **ERDE 

190 DATA 365.25,358.015065,. 
0167197,-1.15E-9,1,102.51048 
2,4.71E-5,0,0,0,0 
200 ! ** MARS 

210 DATA 687,274.55739,.0933 

82,2.52E-9,1.5236884,286.234 

17,2.93E-5,49.36469,2.11E-5, 

1.84983,-1.7SE-8 

220 ! ** JUPITER 

230 DATA 4331.865,341.3682,. 

048458,4.47E-9,5.202561,273. 

72755,1.64E-5,100.20147,2.77 

E-5,1.30447,-1.56E-7 

240 ! ** SATURN 

250 DATA 10760.265,11.388, .0 

556328,-9.5E-9,9.554747,339. 

122155,2.97E-5,113.445187,2. 

39E-5,2.489572,-1.OSE-7 

260 ! ** URANUS 


270 DATA 30687.93975,33.28,. 

0463245,-7.3E-10,19.21814,98 

.81031,2.7E-5,73.85168,1.37E 

-5,.7729535,1.79E-S 

280 ! ** NEPTUN 

290 DATA 60191.0085,202.05,. 

0090018,1.73E-10,30.10957,27 

6.29028,8.92E-6,131.50571,3. 

01E-5,1.7720791,-2.61E-7 

300 ! ** PLUTO 

310 DATA 90472.425,339.093,. 

2522,-6.6E-7,39.6953,113.222 

,5.6E-5,109.655,-1.3E-4,17.1 

407,1.1E-6 

320 PLACHSE=-3.3E-5 ! ** 

ABWEICHUNG DER GROSSEN 
ACHSE BEI PLUTO 
330 FOR 2=1 TO 9 :: FOR T=0 
TO 10 :: READ A(Z,T):: NEXT 
T ;: NEXT 2 

340 PRINT "DIESES PROGRAMM B 
ERECHNET": :"DIE POSITIONEN 
DER 9 PLANE-": :"TEN UND ZEI 
GT SIE AUF DEM": :"BILDSCHIR 
M AN.": : 

350 PRINT "DIE POSITIVE X-AC 
HSE ZEIGT": :"IN RICHTUNG DE 
S FRUEHLINGS-": :"PUNKTES.": 

360 FRINT "WOLLEN SIE EIN NE 
UES DATUM": :"EINGEBEN, DANN 
HALTEN SIE SO": I"LANGE DIE 
ENTER-TASTE, BIS": :"DER CO 
MPUTER SIE AUFFORDERT": : 

370 PRINT "EIN NEUES DATUM E 
INZUGEBEN."5 

380 CALL KEY(0,K,S>:: IF S=0 
THEN 330 
390 CALL CLEAR 

400 CALL CHAR(125,"1C2202010 
1010101") 

410 CALL CHAR(126,"334440808 
0808080") 

420 CALL CHAR(128,"FF",129," 
4040404040404040",130,"FF404 
04040404040") 

430 CALL CLEAR 

440 DISPLAY AT(1,1):"DATUM:" 

: : :*..TAG:": :"MONAT:": :" 
JAHR:" 

450 ON WARNING NEXT :: ACCEP 
T AT(4,8)VALIDATE(DIGIT)BEEP 
SIZE(2):T :: IF T<1 OR T>31 
THEN 450 

460 ACCEPT AT(6,8)VALIDATE (D 

IGIT)BEEP SI2E(2)SM :: IF M< 

1 OR M >12 THEN 460 

470 ACCEPT AT(8,3)VALIDATE(D 

IGIT)BEEP SIZE(4):J 

480 DISPLAY AT(12,1):"DATUMS 

ERHOEHUNG IN TAGEN" 


on 






PLAN ETEN POSITION EN 




490 ACCEPT AT(14,1)VALIDATE( 

DIGIT)FEEF:DELTA 

500 CALL DELSPRITE(ALL) 

510 FOR Z=i TO 9 :: CALL 8PR 
ITE(#Z,131,i6,l,i):: NEXT Z 
520 IF M=1 OR M=2 THEN 530 E 
LSE FAK=365*J+T+31*(M-1>-INT 
C.44M+2.3) J INT(J/4)-INT(.75* 
(INT(J/iOO)+1)):: GOTO 540 
530 FAK=365*J+T+3i#(M-l>+INT 
( <J-l>/4)-INT(.75*(INT<(J-l) 
/IOC») +1) ) 

540 TAGE=FAK-721354 ! ** 
FAKTOR FUER 1.1.1975 
550 JUL=2442413.5+TAGE 
560 DISPLAY AT(J,1)ERASE ALL 
:"WAHL DES KOORDINATENSYSTEM 
8": ; :"1...NUR MERKUR": :-2 
. ..MERKUR - VENUS": :"3. . . ME 
RKUR - ERDE" 

570 DISPLAY AT (1 0,1) : "4. . .ME 
RKUR - MARS": : ,! 5... MERKUR - 
JUPITER": 6...MERKUR - SA 

TURM": MERKUR - URANUS 

II 

580,DISPLAY AT(I8,1):"8...ME 
RKUR - NEPTUN": S"9...MERKUR 
- PLUTO": : :"ö...ENDE" 

590 CALL KEY(0,KEY,STA):: IF 
STA-C: THEN 590 :: IF KEY<48 
OR KEY>57 THEN CALL SOUND(5 
00,110,0):: goto 59ö 
600 IF KEY=48 THEN STOP ELSE 
SY8TEM=KEY-43 :: D=A(SYSTEM 
,4) * (H (A (SYSTEM, 2) +A (SYSTEM 
,3)*7AGE))*149597870/95 
610 CALL CLEAF: :: CALL SPRIT 
E(#10,133,12,96,128):: IF SY 
ST EM; 4 THEN CALL DELSPRITE(# 
10) 

620 CALL HCHAR(13,4,128,2S): 

: CALL VCHAR(1,17,129,24):: 
CALL HCHARH3,17, 130) : : CALL 
HCHAR(13,31,125):: CALL HCH 
AR(I3,3?,126) . 

630 N=JUL + .5 :: Z=INT(N):: F 
=N-Z :: IF Z>=2299160 THEN H 
«INT((Z-1867216.25)/36524.25 
):: A1=Z+1+H-INT(H/4)ELSE Al 
=2 

640 E=A1+1524 C=INT((B-12 
2.1)/365.25):: K=INT(365.25* 
C):: E=INT((E-K)/so.6001):: 
T=B-K-INT(30.6001*E)+F :: M= 
E-i :: J=C-4716 :: IF E > 13.5 
THEN M=M-12 

650 IF M< 2.5 THEN J = J + i 
660 H$=" DATUM " 8cSTR$ (T) 8c" . 
"8cSTR*(M)&-. "kSTR$(J);: CAL 
L VCHARU ,2,32,24) 


670 FOR T=1 TO LEN(H$):: CAL 
L HCHAR(T,2,ASC(SE6$(H$,T,i) 
)):: NEXT T 

680 FOR Z=1 TO SYSTEM : : O-AL 
L KEY(0,KEY,STA):: IF KEY=13 
THEN 390 

690 EX=A (Z, 2) + A £Z, 3) *TAG'E :: 

ACHSE 1=0 IF Z=9 THEN ACH 
SE 1«PL ACHSE*TAGE 
700 ACHSE=(A (Z,4) +ACHSE1 ) *14 
959787C :: PERIHEL- < A (Z, 5) +A 
: Z, 6)* T AGE )*PI/180 :: KNOTEN 
= (A(Z, 7)+A(Z,8)*TAGE)*PI/180 
710 NE I GUNG= (A (Z,9 ) +A (2,10)* 
TAGE)*PI/ i SO :: M=(A(Z,1) + <3 
60/A(Z,0)*TAGE))*PI/ISO :: E 
—M 

720 Hl=E-EX*SIN(E)-M :: IF A 
EE(Hl)'=lE-8 THEN 730 ELSE E 
= E - H1 / il-E X* COS' (E ) ) : : GOTO 7 

720 ZI =90R ( (1 +EX) / (1-EX) ) : .* 
R=ACH3E*(1-EX*COS(£)):: U=PE 
RIHEL +(2* <ATM(TAN(E/2)*Z1)) ) 
740 XKH=R* ( COS (U) * COS (KNOTEN 
) -s I K (U) *3 IN (KNOTEN) *CÜS (NE I 
GUNG)) 

750 YKM=R*(COS(U)*SIN(KNOTEN 
)+ SIN ' U)*COS(KNOTEN)*COS(NEI 
GUNG) ) 

760 CALL L.GCATE (44Z, 97-INT (YK 
M/D), i 30+INT(XKM/D)) 

770 NEXT Z : : TAGE=7AGE + DELT 
A :: JUL«JUL+DELTA GOTO 6 

30 


PRIMZAHLEN 

Manche von Euch werden sich sicherlich 
noch an das Programm “TI-PRIÄ“ aus 
Heft 3 erinnern und jetzt wohl sagen: 

„Was, schon wieder Primzahlen? 

Das Primzahlenprogramm aus Heft 3 war, 
zugegeben, etwas umständlich geschrieben, 
und einer unserer treuen Leser, Herr Dr. 
Köditz, versäumte es nicht, uns darauf 
gleich aufmerksam zu machen. Er schickte 
uns gleich mehrere Versionen ein, die aus¬ 
nahmslos schneller abliefen als TI-PRIM. 

Um zu zeigen, daß wir auch Kritik vertra¬ 
gen können und um Euch die Möglichkeit 
zu geben, das umständlichere Programm 
gegen diese, bessere Version auszutau¬ 
schen, haben wir uns zum Abdruck ent¬ 
schlossen. 

Bei dieser Version lassen sich mit nur 231 
Byte alle Primzahlen zwischen einem frei¬ 
wählbaren Anfang (A) und einem freiwähl¬ 
baren Ende (E) innerhalb kürzester Zeit be¬ 
stimmen, ohne daß dabei die einzelnen Fak¬ 
toren erst in vordimensionierte Felder ein¬ 
gelesen werden müssen. Dr. Helmut Köditz 
Zu Listing auf S. 51 
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USA RACE 


USA RACE 

Sie machen eine Reise von New York nach 
San Francisco. Ihren Wagen steuern Sie mit 
Joystick 1. An einigen Stationen machen 
Sie halt und erledigen dort verschiedene 
Aufgaben. Zuerst haben Sie ein Punkte¬ 
konto von 5000 Punkten. Pro Unfall wer¬ 
den Ihnen 100 Punkte abgezogen. In folgen¬ 
den Städten können Sie sich wieder Punkte 
dazuverdienen: 

1. ) Washington: In einem Reaktionsspiel 
müssen Sie jeweils schnell eine der Tasten 
“1“, “2“ oder “3“ drücken. 

2. ) Cape Canaveral: Einen unheimlich 
schweren Intelligenztest verlangt die • 

NASA von Ihnen. 

3. ) Dallas: Hier in Texas wartet ein kleiner 
musikalischer Höhepunkt zur Begrüßung 
auf Sie. Dann müssen Sie nach „Auf los 
geht’s los“-Art ein Wort finden. 

4. ) Las Vegas: Sie besuchen Dan Tanna 
aus Vegas... Ein einarmiger Bandit ver¬ 
spricht Ihnen bei 2 oder 3 gleichen Ziffern 
viele Punkte! 

Übrigens sind die Aufgaben an den einzel¬ 
nen Stationen nicht zu ernst zu nehmen. 

Z.B. Cape Canaveral bietet eine Aufgabe 
auch für die Jüngeren... 

Auch das Rennspiel dazwischen ist nicht 
zu ernst zu nehmen. Es gibt keine richtigen 
Unfälle, die Wagen fahren weiter. Hier geht 
es um Reaktion und Geschick. 

Übrigens: Auch wenn die Jüngeren hier an¬ 
statt möglichst wenigen möglichst viele 
„Unfälle“ verursachen, Spaß macht dieses 
Familienspiel auf jeden Fall. So sind die 
Autos auch nur angedeutet. Ein besonde¬ 
rer Leckerbissen hingegen ist die hochauf¬ 
lösende USA-Karte. Die Karte wird in den 
Zeilen 240 bis 550 gezeichnet. Eine Ver¬ 
wendung in anderen, eigenen Programmen 
ist sicher öfters einmal möglich. Die Auf¬ 
gaben in den einzelnen Städten sind von 
den Programmzeilen her gesehen recht gut 
überschaubar. Sie können leicht geändert 
werden. 

PROGRAMMBESCHREIBUNG: 

100- 170 Titelbild 
180- 230 Zeichendefinitionen für Wa¬ 
gen, Straße etc. 

240- 370 Zeichendefinitionen für 
USA-Karte 

380- 550 USA-Karte zeichnen 
560— 650 Spielfeld zeichnen 
660- 720 Start 
730- 870 Washington 
880- 990 Cape Canaveral 
1000-1180 Dallas (J.R. ist nett wie 
immer...) 

1190-1300 Las Vegas (Gruß von 
Dan Tanna!!) 

1310-1370 San Francisco (Bonus von 
Mike & Steve) 

1380—1530 Unterprogramm für das 
Rennspiel 

1540-1650 Unterprogramme 
Wenn ein Text links unten eingeblendet 
wird, irgendeine Taste drücken! Buchstaben¬ 
eingaben nur GROSS, alle Buchstaben außer 
V, W, X, Y, Z (umdefiniert). Beim Rennen 
Alpha-Lock-Taste bitte entrastenü! 

Patrick Schmitz 
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i 

XXXX XX* XXXX X-XXXXXXXXXX 

11 

i 

* 

* 

12 

i 

X 

USA-RACE * 

13 

i 

* 

* 

14 

i 

X 

Copyright by X 

15 

; 

X 

* 

16 

i 

* 

Patrick Schmitz X 

17 

i 

* 

X 

19 

i 

X 

Benoetigte Geraete X 

20 

i 

X 

TI99/4A Konsole X 

21 

i 

* 

Ext. Basic X 

22 

i 

* 

Joystick (1) X 

23 

i 

X 

X 

26 

; 

X 

Speicherbelegung X 

27 

i 

* 

12195 Bytes X 

28 

i 

* 

X 

29 

| 

xxxxxx xxxxxx xxxxxxxxxx 

140 

! =- 

=== Titelbild ===== 

150 

CALL CLEAR :: FOR Z=1 TÜ 


3 :: DISPLAY AT<Z,1):"XXX== 
= = = - : ' DISPLAY AT(Z+3,i):" 

=========" :: next z :: RAND 

OMIZE 

160 CALL SCREEN(16):: CALL M 
A.GNIFY \ 2) : : Z*="USA" :: FOR 
2=1 TG 3 :: CALL SPRITE(#Z,A 
SC(SEG$(Z*,Z,1)),7,64,20+2*1 
6 ):: NEXT z :: für z=2 tü 14 
:: CALL CCLOR(Z,5,1;:: NEXT 
Z 

170 CALL CHAR(64,"3C4299A1A1 
994Z3C"):: DISPLAY AT<10,15> 

:"R a c E" :: Display at(20, 

1):"öl934 PATRICK SCHMITZ": 

:"TI-99/4A...EXT..BASIC" :: 
FÜR 2 = 1 TO SOO : : NEXT Z 

ISO ! 

190 ! 

200 ! ===== Zeichen De-fs ===== 
210 CALL CLEAR :: CALL SCREE 
N(5>:: CALL DELSPRITE<ALL):: 

CALL CHAR<36,"FFFFFFFFFFFFF 
FFF " ; 

220 CALL CHAR(59,"007C040310 
204070"):: CALL CHAR(61, "000 
0000000003030") 

230 CALL CHAR(36,"0044444428 
231010004444445454542S004444 
23102344440044442810101010") 
:: CALL CHAR(35,"00000000003 
01020"):: CALL CHAR(41,"0000 
000000003030" ) 

240 ! 

250 ! 

260 ! === USA Zeichen ===== 
270 DATA 432777FF7FFF7FFF,CO 
FOFFFFFFFFFFFF,0000OOEOFCFFF 
FFF,0000000030F0FCFF,0000000 
0000080FC 

280 DATA EOFFFFFFFFFFFFFF,00 
C7FFFFFFFFFFFF,0030FCFFFFFFF 













USA RAGE 


FFF,000080F8FFFFFFFF,0000000 
0F0FFFFFF,00000000E0FCF0C3 

290 DATA 82E7FFFFFFFFFFFF,38 
FCFEC0F8F8FCFE,FEFEF8F0FDFFF 
EFE,010F3FFFFFFFFFFF,01030F1 
F1F0F3FFF,030F0F3F7F7FFFFF 
300 DATA 0707070F0F0F1F3F,00 
0000000107070F,0000000080C0E 
OFO,E0E0F8FEFFFEFCF0,E0E0C08 
000000000,00D8F8E000000000 
310 DATA FFFFFEFEF8E2CE9C,80 
COCOEOEOEOCOCO,FBF3F7F6F6F6F 
2F8,FCFEFFFFFEFCFFFE,FEFEFCF 
0F0E0C080,FFFEFCF8E0C0E0E0 
320 DATA C0E0E0E0E0F0F0F8,FO 
F8FCFEFCFE7F3F,80C0C0C0C0800 
000,7F3F1F0F07030100,0703070 
303010100,FFFFFFFFFFEFC307 
330 DATA FFFFFFFFFFFF8B02,FF 
FFFFFFFFF9CC80,C0C0E06020000 
000,FF3F0C0200000000,FFD9C08 
000000000,FFFFFFFFFEF8E0C0 
340 DATA C0C080C0C0E0E070,3F 
3F1F1F0F0F0300,FFFFFFFF7F7F3 
F3F,CF87030101000000,3F1F0F0 
300000000,FFFF7F7F3F3F1F1F • 
330 DATA FFFFFFFFFFFF9F03,FF 
FFFF3F1F0F0700,FF1F070100000 
000,FF3F1F1F0F070703,1F1F0F0 
F1F1F0F07,1F0F3F3F1F0F1F0F 
360 DATA 7F3FFFFF3F7F3F1F,1F 
3F3F7F7F3F7F3F,0F0F1F1F1F0F1 
FOF,0000000103030707 
370 RESTORE 270 :: FOR 2=1 T 
o 57 :: read z* :: call char 
(86+Z, ZO :: NEXT Z 
380 ! 

390 ! 

400 !==*== USA zeichnen ==== 
410 FOR Z=1 TO 5 :: CALL H<6 
,z+5,86+Z):: NEXT z :: for z 
= 6 TO 11 :: CALL H(7,Z+5,86+ 
Z):: NEXT z :: call h<8,17,9 
8):: CALL H(8,18,99) 

420 CALL H(9,18,100):: CALL 
H(10,19,101):: CALL H(9,20,1 
02):: CALL H(8,21,103) 

430 CALL H(7,22,104):: CALL 
H(6,22,105):: CALL H(6,23,10 
6):: CALL H <7,23,107) 

440 CALL H(8,23,108):: CALL 
H(9,23,109):: CALL H(9,22,ll 
0):: CALL H <10,22,111) 

450 CALL H(ll,21,112):: CALL 
H(12,21,113):: CALL H(13,21 
,114):: CALL H(14,20,115) 

460 CALL H(15,20,116):: CALL 
H(16,20,117):: CALL H(17,21 
,118):: CALL H(17,20,119) 

470 CALL H(16,19,120):: CALL 


H(15,19,121):: CALL H(15,18 
,122):: CALL H(15,17,123) 

480 CALL H (16,17,124)-:: CALL 
H(16,17,125):: CALL H(16,15 
,126):: CALL H (16,14,127) 

490 CALL H(17,14,128):: CALL 
H(17,13,129):: CALL H(16,13 
,130):: CALL H(16,12,131) 

500 CALL H<16,11,132):: CALL 
H(15,11,133):: CALL H(14,10 
,134):: CALL H(14,8,135):: C 
ALL H(14,7,136) 

510 CALL H(13,6,137):: CALL 
H(12,3,138):: CALL H(ll,5,13 
9):: CALL H(10,5,140) 

320 CALL H(9,5,141):: CALL H 
(8,5,142):: CALL H(7,5,143) 
330 CALL A(7,6,86,5):: CALL 
A(8,6,86,10):: CALL A<9,6,86 
,12):: CALL A(10,6,86,13) 

540 CALL A (11,6,86, 15) : CAL 
L A(12,6,86,15):: CALL A(13, 
7,86,14):: CALL H(14,9,86):: 

CALL A(14,11,86,9) 

550 CALL A(15,12,86,5):: CAL 
L A(10,20,86,2):: CALL H(9,2 
1,86):: CALL H(8,22,86):: CA 
LL H(8,16,86) 

560 ! 

570 ! 

580 != Spielfeld zeichnen = 
590 FOR Z=1 TO 14 :: CALL CO 
L0R(Z,2,6):: NEXT Z :: PU=50 
00 :: DISPLAY AT(1,1)SIZE(23 
)I"USA0RACE PUNKTE:"5 PU :: 
CALL CHAR(64,"000000007C") 
600 DISPLAY AT(18,1):"EIN RE 
NNEN QUER DURCH DIE...*EREIN 

IGTEN STAATEN).*0N NE 

% ’ORK UEBER %ASHING<2 TON NA 
CH CAPE CANAVERAL)"' . 

610 DISPLAY AT(22,1):“DANN U 
EBER LOUISIANA NACH...TE&AS) 
*0N DALLAS DANN NACH..LAS *E 
GAS UND SAN FRANCISCO)“ :: F 

or z=i to 400 :: call key( 0 , 

ZI,Z2):: IF Z2=-l THEN Z=400 
620 NEXT Z :: CALL CHAR(43," 
3E3E1C3E7F3E7F3E7EFF7EFF7E18 
3C183C7E7E3C3C7E3C18183CFFFF 
18FFFFFF"):: CALL CHAR(47,RP 
T$(“0",12) 6t"80“ ) ; 

630 CALL HCHAR(18,1,32,222): 
: CALL SPRITE(M1,47,12,28,15 
6):: CALL C0L0R(2,2,15):: CA 
LL -CHAR (40, RPT9 ( M 0" , 16) ) : : C 
ALL VCHAR(1,26,40,120) 

640 CALL CHAR(41,RPT$("04" , 8 

)):: for z =26 to 28 :: call 

SPRITE(#Z,41,2,70*(Z-25),208 
):: NEXT Z 
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650 CALL CHAR(42,"1038387C38 
38FE38 M >:: CALL SPRITE(#2,42 
,7,80,224) 

680 ! 

690 ! 

700 !======= Start ======= 

710 FOR Z=1 TO 30 STEP 1 :: 
CALL MOTION(#27,Z,0,#26,Z,0, 
#28,Z,0):: CALL S0UND(-1000, 
110,30,110,30,2*30+90,30,-4, 
4):: NEXT Z 

720 CALL CL :: CALL D(20,"ST 
ART IN NE% 1 ORK"):: CALL S : 

: CALL CL :: CALL X(3,50,PU) 
:: CALL LOCATE(#1,38,149) 

730 ! 

740 ! 

750 !==== Washington ==== 

760 CALL D( 16, "ANKUNFT IN %A 
SHINGTON:"):: CALL SOUND (100 
,440,4,880,8):: CALL SOUND( 1 
00,660,4,880,8):: CALL SOUND 
(100,220,4,440,8) 

770 CALL D( 18 ,"DER PRAESIDEN 
T BITTET"):: CALL D(19,"SIE#' 
VoEISSE FARBE FUER"):: CALL 
D(20,"EINEN ANSTRICH DES") 

780 CALL D(21,"%EISSEN HAUSE 

s ;u be@"):: call d(22, m sorg 

EN==="):: CALL D(23,"DRUECKE 
N SIE NUR BEI") 

790 CALL D(24,"%EISS <1>#<2> 
ODER < 3 > = "):: CALL W 
800 CALL D(19,"<1>...<2>...< 
3 >") :: Z$="013E4689BD7E3C3C" 
:: CALL CHAR(33,Z*,66,Z$) 
810 CALL S0UND(2,1400,0,1410 
,4):: CALL C0L0R(1,16,6):: F 
OR Z=i TO 45 :: Z1=INT(RND*3 
)+l :: FOR Z2=i to 3 :: if z 
1=Z2 THEN Z$="!" ELSE Z$="B" 
820 DISPLAY AT(21,Z2*6-4)SIZ 
E(l):z$ :: NEXT Z2 :: CALL s 
0UND(-2,110,4,112,5):: CALL 
KEY(0,ZO,Z3):: IF Z0=Z1+48 T 
HEN 850 ELSE IF Z3=0 THEN 84 
0 

830 IF Z0<49 OR Z0>51 THEN 8 
40 ELSE DISPLAY AT(20,VAL(CH 
R$(ZO))*6-4)SIZE(1)::: D 
ISPLAY AT(20,VAL(CHR$(ZO))*6 
-4)SIZE(1): M " 

840 NEXT z :: CALL CL :: CAL 
L COLOR(1,2,6):: CALL CHAR(3 
3,"0010101010100010",66,"007 
8242438242478"):: GOTO 870 
850 PU=PU+100 :: CALL PUNKTE 
(PU):: CALL S0UND(-1C,1000,0 
,1010,2,1020,6):: GOTO 830 
860 ! 


870 CALL D(20,"AUF NACH C=CA 
NA$ERAL !!"):: CALL S :: CAL 
L CL :: CALL X(4,110,PU) 

880 ! 

890 ! 

900 •=== Cape Canaveral - 

910 CALL LOCATE(#1,88,140):: 

CALL D(16,"ANKUNFT IN C#CAN 
a$eral :"):: CALL SOUND(100, 
440,4,660,8):: CALL SOÜNDdO 
0,660,4,880,8) 

920 CALL D(18,"FUER DIE NAEC 
HSTE SPACE"):: CALL D(19,"SH 
UTTLE0MISSION JIEHT"):: CALL 
D(20,"MAN SIE ALS CAPTAIN I 
N") 

930 CALL D(21,"BETRACHT= BE% 

EISEN SIE"):: CALL D(22,"IHR 
E inteligen;: finden"):: cal 

L D(23, "SIE DIE GESUCHTE 5 AH 
L" ) 

940 CALL D(24, "j %= 0 UND 9 S 

CHNELL !!"):: CALL W 

950 Z2=0 :: Z1 = INT(RND*10) : :■ 

CALL D(20,"IHR VERSUCH? <00 
9 > : ") 

960 ACCEPT AT(20,21)SIZE (-1) 
VALIDATE(DIGIT)BEEP:Z2 :: if 
Z1=Z2 THEN 980 ELSE IF Z2<Z 
1 THEN CALL D(22,"JU KLEIN ! 

! " )ELSE CALL D(22,"jU GROSS 

! i " ) 

970 pu=pu-ioo : : call punkte 

(PU):: CALL SOUND(-100,110,2 
,112,4):: CALL SOUND(-100,22 
0,4,222,8):: CALL S0UND(-100 
,330,8,332,10,334,10):: GOTO 
960 

980 CALL D (22, "RICHTIG -1!!!! 

II'!"):: CALL SOUND(-100,101 
0,2,1040,4,1080,8.):: PU=PU + 2 
000 :: CALL PUNKTE(PU) 

990 CALL CL :: CALL D(20,"AB 
GEHTS NACH TE&AS !"):: CALL 
D(22,"DALLAS %ARTET SCHON ! 

! ; ;"):: call s :: call cl 
1000 ! 

1010 ! 

1020 ! ======= Dallas =====-= 

1030 CALL X(4,200,PU):: CALL 
LOCATE(#1,75,92) 

1040 CALL D(16,"ANKUNFT IN : 

CALL D(18,"DALLAS# TE&A 
S# USA !!!"):: CALL D(20,"S0 
UTHFORK RANCH") 

1050 CALL D(22,"J=R=IST NETT 
UND STELLT"):: CALL D(24,"I 
HNEN KEINE AUFGABE ====")•• R 
ESTORE 1060 

1060 DATA 523.2,659.3,523.-2, 

784.3,523.2,659.3,587.2,659. 2$ 
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2,523.3,392.3,523.3,830.3,78 
4.3,659.2,698.2,784.4,523.1 
1070 DATA 523.2,880.3,784.3, 
659.2,698.2,784.3,587.2,659. 
2,523.-3,392.3,523.3,659.2,69 
8.2,587.3,784.2,734.3, 

1080 FÜR Z=1 TO 33 :: READ Z 
1 :: CALL SOUND((Z1 -1NT < Z1?) 
-K-800,ZI,4,ZI+2, 12):: CALL S 
OUND(200,21,10):: NEXT Z 
1090 CALL CL :: CALL D'US, " = 
= = ABER SIE TUN IHM"):: CALL 
D(19,"DOCH AUCH FREIWILLIG" 
):: CALL D(20,"EINEN KLEINEN 
CALL D(21,"GEFALLEN !?! 

" ) 

1100 CALL D(22,"FINDEN SIE S 
CHMELL"):: CALL D(23,"DAS GE 
SUCHT WORT !!"):: CALL D‘24, 

"DA;U BUCHSTABEN ENTERN®"):: 
CALL W 

1110 DATA BOURBON,DOLLARS,BU 
ISIMESS,DALLAS,REI CHTUM,BOHR 
TUEFTiF , OELFELDER , INTRIGEN, GE 
SCHAEFTE,BESTECHUNGEN,FREISA 
EOF RACHE,MACHTKAEMPFE 
1120 DATA FAMILIENKRACH,SCHE 
CKBETRUEC-E, ERFOLGREICH, SOUTH 
FORKRANCH,SENSATIONELL,SCHOE 
NHEITEN,BELIEBT,BEKANNT,BARG 
ELD,AUSTRICKSEN,UNUEBERTROFF 
EN 

1130 RESTORE 1110 ;: FÜR 1=1 
TO INT(RNDfc23)+1 :: READ ZS 

:: next z :: call d( 18 ,rpts 
(" 8",LEN(Z«))):: zi=c» :: cal 
L D(23,"IHR VERSUCH ?") 

1140 ACCEPT AT (23, 15) SIZE (1 )* 
VALIDATE("ABCDEFGHIJKLMNOPQR 
3TU" ) BEEP : A$ :: FOR 2=1 TO L 
EN (Z«> :; IF SEGS(Z*,Z, 1) =A$ 
THEN DISPLAY AT(18,Z)SIZE<1> 
:A« :: pu=pu+150 :: CALL SOU 
ND(10,440,2,660,4)ELSE 1170 
1150 21=21+1 :: x$= Hn :: für 
22=1 TO LEN (2$):: IF 22=2 T 
HEN X«=X«fc"-" ELSE X*=X«feSEG 
«<Z« f Z2,1) 

1160 NEXT 22 :: Z*=X$ 

1170 NEXT Z :: IF ZI<LEN(Z$) 
THEN CALL SOUND(10,110,3):: 
CALL SOUND(10,115,5):: PU=PU 
-50 :: CALL PUNKTE(PU):: GOT 
0 1140 

1180 CALL D(23,"RICHTIG !!!! 
!"):: CALL SOUND(140,1000,2, 
1010,6):: CALL SOUND(150,800 
,2,810,6):: CALL SOUND(160,9 
00,2,910,6):: CALL CL 
1190 ! 


1200 , ! 

1210 !======= Vegas ======== 

1220 CALL D(18,"AUF NACH «EG 
AS !!!"):: CALL s :: call cl 
:: CALL X(4,200,PU):: CALL 
L0CATE(#1,55,42):: CALL D(1S 
,"ANKUNFT IN LAS «EGAS !!") 

1230 CALL SOUND<140,1000,2, 1 
010.6):; CALL SOUND(140,400, 
2,410,6):: CALL SOUND<140,80 
0.2,810,6):: Z3=0 :: CALL D( 
21,"«ERSUCHEN SIE IHR") 

1240 CALL D(22,"GLUECK® STOP 
PEN SIE DEN"):: CALL D(23,"E 
INARMIGEN BANDITEN MIT"):: C 
ALL D(24,"EINEM TASTENDRUCK® 
"):: CALL W :: CALL D(16,"SI 
E HABEN 5 «ERSUCHE®"):: FOR 
2=1 TO 5 

1250 CALL D<18,STR«(2)8e"= «E 
RSUCH"):: CALL SOUND(100,110 
,2):: CALL SOUND(100,115,4): 

: CALL SOUND(100,120,6):: CA 
LL CL 

1260 FÜR ZG=Z3+1 TO 3 :: DIS 
PLAY AT(20,20*2)SIZE(1):STR« 
(INT(RND*9>41):: NEXT ZO :: 
CALL KEY (0, ZI ,Z2) : :. IF 2201 
THEN 1260 ELSE CALL SOUND(1 
00,110,0,115,2):: 23=23+1 :: 

IF 23<3 THEN 1260 
1270 CALL GCHAR <20,4,Z1) : : C 
ALL GCHAR (20,6,22) : CALL GC 

HAR(20,8,23):: IF 21=22 OR Z 
1=23 OR 22=23 THEN CALL D(22 
,"80 EIN GLUECK !!!")ELSE 13 
00 

1280 FOR Z0=1 TO 200 STEP 5 
:: PU=PU+5 :: CALL PUNKTE(PU 
):: CALL SOUND(-10,20*10+100 
,4);: NEXT ZO :: IF Z1=Z2 AN 
D Z2=Z3 THEN PU=PU+2000 :: C 
ALL PUNKTE(PU)ELSE 1300 
1290 CALL D(24,"BESSER GEHT 
ES NICHT !!"):: CALL SOUND(1 
30,1000,0,1010,4):: CALL SOU 
ND(180,1200,0,1210,4):: CALL 
SOUND(130,1100,0,1110,4) 

1300 CALL CL :: Z1,Z2,Z3,Z0= 

0 :: NEXT Z :: CALL DU7,"DA 
N TANNA «ERABSCHIEDET") : CA 
LL D(19,"SICH «ON IHNEN®"):: 

CALL D(21,"SAN FRANCISCO %A 
RTET==="):: CALL S :: CALL CL 
1310 ! 

1320 ! 

1330 !=== San Francisco ==== 
1340 CALL X(5,90,PU):: CALL 
LOCATE (#1,46,25) : .* CALL D(16 
,"ANKUNFT IN"):: CALL D(18 
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SAN FRANCISCO"):: CALL D(20, 
«MIKE STONE UND STE$E") 

1350 CALL D(22,"HELLER 8CHEN 
KEN IHNEN"):: CALL D(24,STR$ 
(PU/10)fc" BONUSPUNKTE !!!!") 

:: pu=pu+pu/io :: call Punkt 
E(PU):: CALL SOUND(200,830,4 
,890,6) 

1360 CALL SOUND(200,660,4,67 
0,6):: CALL w :: call D(20," 
SIE HABEN “S<STR* (PU) 3,“ PUNKT 
E">:; CALL D(22,"ERREICHT^") 

:: CALL D(24,"NEUES SPIEL <J 

mo ?") 

1370 ACCEPT AT(24,22)VALIDAT 
E("3M")SIZE(1':7$ :: IF Z $=* 
3" THEN RUN 630 ELSE CALL DE 
LSPRITE(ALL):: CALL CLEAR :: 

CALL S :: END 
1400 ! 

1410 ‘ ! 

1420 ! 

J 430 SUB X(Z,Mi, PU) 

1440 CALL BELSPRITE(»2):: R= 
int; RND *2 1 > +3 : : R 1-I NT ( RND * 
-29)-4 :: FÜR ZC=1 TG z :: 'I 
F RND<.3 THEN CALL SPRITE(#2 
0+2.43,1,200,224,RI,0):: GOT 
0 1460 

1450 IF RND>.6 THEN CALL SPR 
IT E (» Z0 + 2,4 4 , 1,200,200, R, 0) E 
LSE IF RND<.3 THEN CALL SPRI 
TE(#20 + 2.45,1,200,200,R,0)EL 
SE CALL SPRITE <»20f2,46,1,20 
0,224,RI,0) 

1460 CALL SOUND(-99,210,4,21 
2,10):: CALL SOUND(-99,210,8 
.212,16):: CALL SOÜND(-99,21 
6,12,212,18):: NEXT ZO :: FO 
R Z0=1 TO 5 :: CALL COIMC(AL 
L,z 1):: IF 21 then 1440 
1470 NEXT ZO :: FOR Z0=1 TO 
3 :: CALL POSITION(»ZO+2,X,Y 
1(70)):: NEXT ZO :: IF Y'i(l) 
ivi(2)AND Y1<2)=Y1(3)THEN 14 
40 

1480 CALL COLOR(#3,9,84,3,#5 
■,13,«6,14,#7,9?:: CALL SOUND 
(150,110,0):: cALL SOUND(150 
,110,5):: CALL SPRITE (42,42., 
7,30,224) 

1490 M2=M2+1 :: CALL POSITIG 
M {» 2,X,Y):: IF M2>M1 THEN 15 
30 

1500 CALL J0Y8T(l,Zi,Z2):: C 
ALL SOUND(-500,110,30,110,30 
.1000,30,-4,4):; IF Zl = -4 TH 
EN CALL L0CATE(»2,X,200)ELSE 
IF Z 1=4 THEN CALL LGCATE ((42 
,X,224) 


1510 IF Z2=4 AND X>1Ö THEN C 
ALL MOTION(#2,-55,0):: CALL 
MOTION(#2,-15,0)ELSE IF 22=- 
4 AND X<175 THEN CALL MOTION 
(»2,55,0):: CALL M0TI0N(»2,1 
5,0) 

1520 CALL MOTION(»2,0,0):: C 
ALL COINC(ALL,ZI):: IF NOT Z 
1 THEN 1490 ELSE CALL SCREEN 
(12):: CALL SOUND( -500,-6,4) 
:: CALL SCREEN(5>:: PU=PU-10 
0 :: CALL PUNKTE(PU):: GOTO 
1490 

1530 N2=0 :: CALL DELSPRITE( 
»3,»4,»5,»6,#7):: SUBEND 
1570 ! 

1580 ' 

1590 SUB W :: CALL HCHAR(24, 
31,62): : FOR Z = 1 TO 333 : : C 
ALL KEY (0,Zi,22):: IF Z2=-i 
THEN Z=400 

1600 NEXT Z : : CALL CL : : CA 
LL HCHAR(24,31,32):: SUBEND 
1610 SUB CL :: FOR Z=16 TO 2 
4 :: CALL HCHAR(Z,1,32,25) : : 

NEXT Z :: SUBEND 
1620 SUB H(Z,Zi,Z2):: CALL H 
CHAR(2-3,21-2,22):: SUBEND : 

; SllB PUNKTE (PU) : : IF PU<0 T 
HEN PU=G 

1630 DISPLAY AT(1,IS)SIZE(6) 

:pu :: SUBEND :: SUB A(2,21, 
22.20):: CALL HCHAR(2-3,21-2 
,22,20):: SUBEND 
1640 SUB S :: FOR 2=110 TO 5 
50 STEP 20 ::'CALL SOUND(-10 
0,2,3,660-2,7):: NEXT 2 :: C 
ALL S0UND(-100,110,0):: CALL 

sound(- 100 , 110 , 6 ):: subend 

1650 SUB D <2, Z*> DISPLAY A 
T(Z,1> SIZE(23):2$ :: SUBEND 


Tips & Tricks 


1. Einwirkungen von Shift-Spaces auf eine Disket¬ 
tendirectory: • 

- Save“(Shift-Space)” ,8 

- erzeugt den File “ “ in der Directory. 

- Save“(Shift-Space)TEST“,8 

erzeugt den File * ““Test ’ in der Directory. 

- Jedes weitere Shift-Space vor ‘Test’ läßt Test 
hinter den Anführungsstrichchen um eins nach 
rechts rücken. 

- um dann z.B. den File “ “ zu laden muß man 
Load“(Shift-Space)”,8 eingeben ... 

- Save“(Shift-Space)Test (RVS on)“,8 
erzeugt den File ‘ ““Test (Rest ist in RVS) . 

- Save“(Shift-Space,RVS on)Test“,8 
erzeugt den File ‘ ““Test (ab Test ist alles m 
RVS) * 

- Save“Test(Shift-Space, Shiftlock ein) Hallo“,8 
erzeugt den File ‘ “Test“Hallo ’. 







TIPS & TRICKS 


Pokes ' 

Bei den Adressen 774/775 liegt der List Vektor, 
den man auch auf andere Routinen verbiegen 
kann: 

Z B ■ 

Poke 774,68:Poke 775,166 -» bei List erfolgt ein 

New! 

Poke 774,26:Poke 775,167 -»jetzt kann man wie¬ 
der normal listen! 

Poke 774,7:Poke 775,168 -»bei List erfolgt 

Syntax Error 

Poke 774,226:Poke 775,252-*- bei List erfolgt ein 

Systemstart 

Ebenso kann man den Restore-Vektor verbiegen: 
Poke 792,7:Poke 793,168 -» bei Restore kommt 

Syntax Error 

Poke 792,71 :Poke793,254 -» wieder normal 

Poke 792,226:Poke 793,252-»Systemstart 

Poke 792,102:Poke 793,254 -j- Run Stop ist unnötig, 

Restore genügt! 

Poke 792,193:Pöke793,254-> Runstop + Restore 

wird abgefangen 

- Die Anzahl der Shift-Space ist beliebig wählbar! 
SYS 44441 erzeugt Type Mismatch Error 

Poke 2050,7 macht Listen unmöglich 
Poke 2050,8 -» wieder normal 

3. Verschiedenes: 

- Bei dem Spiel ‘Strip Poker’ kommt man wesent¬ 
lich schneller ans Ziel, wenn man den Basic-File 
‘Strip Poker‘ lädt und in Zeile 6070 statt 
OP$+“l“ OP$+“5“ schreibt und dann das Pro¬ 
gramm startet. 

- In dem Programm ‘Ghostbusters‘ erhält man als 
Startkapital § 66800, wenn man als Namen 
‘Würg* und als Kontonummer 50315201 eingibt! 

Andreas Thümmler 


STROM 

UND GAS DATEI 

„Obwohl es ein Hauptziel unseres Tests war, her¬ 
auszufinden,' welche heimischen Anwendungsgebie¬ 
te es für einen kleinen Computer geben könnte, 
sind wir in monatelangen Prüfungen, nicht fündig 
geworden.“ 

Zitat der Stiftung Warentest über Homecomputer 
im Heft 10/84. 

Zwar sind die wirklich nützlichen Anwendungs¬ 
möglichkeiten für Homecomputer rar, jedoch zeugt 
diese Aussage von Einfallslosigkeit. Auch ich suche 
meine Telefonnummern sinnvollerweise immer 
noch im Telefonbuch, und nicht in einer Datei, 
jedoch habe ich u.a. den monatlichen Strom- und 
Gasverbrauch mit einer Datei erfaßt-. So bleibt mir 
am Jahresende eine unangenehme Überraschung 
erspart, wenn nämlich die 2monatliche Abschlags¬ 
zahlung nicht ausreichend war und eine deftige 
Nachzahlung fällig wird. 

Das von mir geschriebene Programm kann durch 
einfaches Umschreiben universell für alle monatlich 
anfallende Verbräuche oder Kosten Verwendung 
finden, indem man die leicht auffindbare Bezeich¬ 
nung und Einheit ändert. Das vorliegende Pro¬ 
gramm erfaßt die Daten von 6 Jahren. 

PROGRAMM-BESCHREIBUNG _ 

Nach dem Starten erscheint das Titelbild mit dem 
Vermerk “Edit 320“. Hier hat der Anwender die 


Möglichkeit, durch Editieren der Zeile 320 die 
Datei mit einem Namen zu versehen. 

Danach erscheint das Hauptmenü mit: 

1. Datei erstellen 

Nur bei Neuerstellung einer Datei (eventuell im 
Speicher befindliche Daten werden gelöscht). 

Bei Wahl erscheint zunächst eine Warnung, damit 
bei versehentlicher Betätigung der Rücksprung 
zum Hauptmenü möglich ist. 

2. Datei erweitern 

Erweitert eine vorhandene Datei. 

3. Datei einiesen 
Liest Datei von Band. 

4. Datei speichern 
Schreibt Datei auf Band. 

- Bemerkung zu 3. und 4.: 

Durch die Schreibweise N, N+l, N+2, ... wird 
die Schnelligkeit des Schreib-Lesevorgangs er¬ 
höht. (Band hält nicht so oft an.) 

5. Dateibehandlung 
Ruft Unterprogramm auf. 

6. Zählerstand 

Hier wird der aktuelle Zählerstand ausgegeben. 
UNTERMENÜ 

(Vom Hauptmenü durch 5 aufgerufen) 

5. Datei auflisten 

Listet von beliebigen Monat Daten auf und berech¬ 
net Durchschnittsverbrauch. 

Die Datei kann vor- und rückwärts „geblättert“ 
werden! 

6. Diagramm 

Stellt 12 Monate im Balkendiagramm dar. Es kön¬ 
nen beliebige Zeiträume dargestellt werden, um 
z.B. die Wintermonate beim Gasverbrauch zu ana¬ 
lysieren. 

Der maximale Verbrauch in diesem Zeitraum wird 
ausgegeben. 

Dieser Wert bestimmt übrigens auch den Maßstab 
für die Balkenlänge auf dem Bildschirm. (Der maxi¬ 
male Wert füllt immer den Bildschirm.) 

Beim Diagramm wurde auf die perspektivische Dar¬ 
stellung der Balken, wie in vielen Fachzeitschriften 
verbreitet, verzichtet. Dieses bietet nämlich keinen 
Vorteil beim Vergleich der Werte, es schaut nur gut 
aus, und dafür waren mir 14 KByte in X-Basic zu 
schade. 

7. Trendanalyse 

Hier wird der voraussichtliche Verbrauch für das 
laufende Jahr hochgerechnet. Die Trendanalyse 
kann bereits bei eingegebenem Januarwert erfolgen, 
ist jedoch dann noch relativ ungenau. 

Bei der Hochrechnung werden die bereits eingege¬ 
benen Werte des laufenden Jahres mit denen des 
Vorjahres verglichen. Sollte gegenüber dem Vorjahr 
ein Mehr- oder Minderverbrauch in den ersten Mo¬ 
naten vorliegen, so nimmt der Computer an, daß 
sich der Trend auch in den folgenden Monaten fort¬ 
setzt. 

Am hochgerechneten Gesamtverbrauch *kann im 
Vergleich mit dem Vorjahr unmittelbar abgelesen 
werden, ob eine Nachzahlung blüht oder nicht. 

8. Datei ändern 

Bei einem falsch eingegebenen Wert kann hier eine 
Korrektur erfolgen. ; 

9. Hauptmenü 

Rücksprung zum Hauptmenü. 


46 


Günther Arens 


STROM UND GAS DATEI 


100 

i 

********************** 

110 

i 

* 

* 

120 

i 

* STROM fe GAS DATEI 

* 

130 

i 

* 

* 

140 

i 

X- Copyright by 

* 

150 

i 

* 

* 

160 

i 

* Guenther Arens 

* 

170 

I 

X- 

* 

190 

i 

X- Benoetigte Geraste 

* 

200 

i 

X- TI99/4A Konsole 

* 

210 

i 

* Ext. Basic 

* 

220 

! 

X- Kass.-Rekorder 

* 

230 

1 

x- - 

* 

260 

i 

X- Spei z h er t-e 1 egung 

* 

270 

« 

X- 11214 Bytes 

* 

280 

1 

X- 

* 

290 

300 

! 

1 

**$*ZX*X*¥;**X*****Z*** 


310 CALL CLEAR 

320 DIM HT(i2,5):: DIM MT(12 
,5) :: DIM 5(12):: DIM M$(12) 
330 CALL CHAR(.133, "OOOOOOFFF 
F",134,"1813181918131318",13 
5, "0000001F1FiS 1313" , 136,”00 
000 OF SF 318131c“> 

340 CALL CHAR(137,"1813131F1 
F",138,"13181SF3F3") 

350 CALL CHAR(130,"FFFFFFFFF 
FFFFFFF",131,"FEFEFEFEFEFEFE 
FE” ) 

260 CALL CHARU23, "OOOOOOFFO 
0000000",129,”10101010101010 
10”):: ci="JAFEMAAPMAJUJLAUS 
EOKNOBE" 

370 CALL BORDER(1,2,24,31) 

380 DISPLAY AT(3,7):"DATEIVE 
RWALTUNG" 

390 CALL HCHAR(4,9,123,15) 

400 DISPLAY AT(8,3):"MONATLI 
CHER VERBRAUCH VON" II DISPL 
AY AT(13,7):"STROM UND GAS" 

:: CALL HCHAR(14,9,123,13) 

410 DISPLAY AT(19,3):"###### 
W EDIT 320 #######" 

420 IMAGE "####.#" 

430 IMAGE "#####.#" 

440 IMAGE "####.###" 

450 FOR N=i TO 12 :: READ M$ 
(N):: NEXT N 

460 DATA JAN. , FEB . , MAE. , AF'R. 

,MAI,JUN.,JUL.,AUG.,SEP.,OKT 
,.NOV.,DEZ. 

470 FÜR N=1 TO 1000 :: NEXT 
N 

430 DISPLAY AT(2,?)ERASE ALL 
:"HAUPTMENUE" :: CALL HCHAR( 
3,11,123,10) 

490 DISPLAY AT(5,5) :"1 ->DATE 
I ERSTELLEN" :: DISPLAY AT(8 
,5):"2->DATEI ERWEITERN" 

500 DISPLAY AT(11 ,5) :"3->DAT 


EI EINLESEN" :: DISPLAY AT(1 
4,5):" 4 - >DATEI SPEICHERN" 

510 DISPLAY AT(17,5):"5-'DAT 
EIBEHANDLUNG” 

520 DISPLAY AT(20,5):"6->ZAE 
hLerstand" :: CALL BORDER(1, 
5,22,26):: DISPLAY AT(24,4)B 
EEP:"bitte waehlen" 

530 CALL KEY(0,K,3) 

540 IF K-48<1 OR K-43>6 THEN 
530 

550 ON K-43 GOTO 560,2390,37 
0,930,1150,1080 
560 DISPLAY AT(3,9)ERASE ALL 
:"ACHTUNG" :: CALL HCHAR(4,1 
1,123,7) 

570 DISPLAY AT(8,1)BEEP:"DAT 
ENVERLUST IM SPEICHER??" 

530 DISPLAY AT(13, 1) : "2 ->DAT 
EIEINGABE" :: DISPLAY AT(20, 

1): "3-’HAUPTMENUE" :: DISPLA 
V AT(24,1):"bitte waehlen"- 
590 CALL KEY(0,K,S) 

600 IF K-43<2 OR K-43>3 THEN 
590 

610 ON K-*9 GOTO 620,480 
620 DISPLAY AT(1,1)ERASE ALL 
:"DATEIERSTELLUNG" 

630 CALL HCHAR(2,3,128,15) 

640 DISPLAY AT(4,1BEGINN 
DER AUFZEICHNUNG" :: DISPLAY 
AT(3,1):"MONAT [1-123" 

650 DISPLAY AT(12,1):"JAHR C 
4 stellen!" :: DISPLAY AT(17 
,1):"MIT ZAEHLERSTAND AM 1." 
660 DISPLAY AT(20,1):"STROM: 

" :: DISPLAY AT(22,1):"GAS:" 

670 ACCEPT AT (8,14) BEEP VALI 
DATE(DiGiT)SiZE(-2 ):am :: ac 
CE PT AT(12,13)BEEP VALIDATE( 
DIGIT)SIZE(-4):AJ 
680 ACCEPT AT (20,8) BEEP VALI 
DATE(DIGIT,".")I ZS :: ACCEPT 
AT(22,6)BEEP VALIDATE(DIGIT 
,"."):ZG 

690 IF AM<1 OR AM>12 THEN 62 
0 :: DISPLAY AT(10,3)ERASE A 
LL:"BEI ENDE DER DATEIEINGAB 
E” 

700 DISPLAY AT(15,3)BEEP:"00 
C EINGEHEN" :: CALL HCHAR(16 
.10,128,12):: KTR=i 
710 DISPLAY AT(24,3):"leerta 
ste druecLen" 

720 CALL KEY(0,K,3) 

730 IF K< >32 THEN 720 

740 LM=AM :: LJ=0 

750 FOR J=LJ TO 5 :: FÜR M=L 

M TO 12 

760 DISPLAY AT(3,3)ERASE ALL 
:"STROM:" :: DISPLAY AT(6,3) 
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LL:“STROM:KUH" :: CALL vchar 
(1,22,129,1):: DISPLAY AT(1, 
22):"GAS:QM" 

1280 CALL HCHAR<2, 3,128,28) : 
: KTR=3 :: 1=0 

1290 FÜR M=LM TO 12 

1300 DISPLAY AT(KTR,1):M$(M) 

:: DISPLAY AT(KTR,5):AJ+J :: 

CALL VCHAR (KTR,12,129,1) 
1310 1=1+1 

1320 DISPLAY AT(KTR,12) : USIN 
G 420:HT(M,J):: CALL VCHAR(K 
TR,22,129,1):: DISPLAY AT(KT 
R,21):USING 440:NT(M, J) 

1330 DH=DH+HT(M, J): : DN=DN+N 
T(M,J):: KTR=KTR+1 :: IF KTR 
>14 THEN 1370 

1340 IF M=EM AND AJ+J=EJ THE 
N 1360 

1350 NEXT M :: XM=LM :: LM=1 
:: J=J+l :: goto 1290 
1360 DISPLAY AT(KTR+1,1): " DA 
TEI ENDE" 

1370 CALL HCHAR(16,3,128,28) 
1380 DISPLAY AT ( 17,14):"DÜRC 
HSCHNITT:" :: DISPLAY AT(20, 
12):USING 420:DH/I :: CALL V 
CHAR(20,22,129,1) 

1390 DISPLAY AT(20,21):USING 
440:DN/I :: CALL HCHAR(21,3 
, 128,28). 

1400 DISPLAY AT(22,1):"blaet 
tern vor/rueck 153/[63 " :: D 
ISPLAY AT(24,1)BEEP: "hauptme 
nue C73" :: I,DH,DN=0 
1410 CALL KEY(0,K,S) 

1420 IF K-52<1 OR K-52>3 THE 
N 1410 

1430 ON K-52 GOTO 1440,1460, 
480 

1440 IF M=EM AND J+AJ=EJ THE 
N 1500 :: IF M=12 THEN 1450 
:: LM=M+l :: goto 1270 
1450 J=J + 1 :: IF AJ+J >EJ THE 
N 1500 :: GOTO 1270 
1460 IF M=12 THEN 1490 :: IF 
KTRC14 THEN 1470 :: J=J-2 : 

: LM=M+1 :: IF J<0 THEN 
1480 :: GOTO 1270 
1470 J = J-1 :: IF J<0 THEN 14 
80 :: IF XM=0 THEN 1270 :: L 
M=XM :: J=J-l :: XM=o :: got 
0 1270 

1480 J=C) :: LM=AM :: GOTO 12 
70 

1490 J=J-1 :: LM=M-(KTR-4): : 

IF J<0 THEN 1480 :: GOTO 12 
70 

1500 DISPLAY AT(10,6)ERASE A 
LL:"KEINE EINTRAGUNG" :: FOR 


N=1 TO 500 :: NEXT N :: CAL 
L CLEAR :: GOTO 1160 
1510 DISPLAY AT(10,6)ERASE A 
LL:"KEINE EINTRAGUNG" :: FOR 
N=i TO 500 :: NEXT N :: GOT 
0 480 

1520 DISPLAY AT(1,1):"DATEI" 
:: CALL HCHAR(2,3,128,5):: 
DISPLAY AT(8,1):"VON:" :: CA 
LL HCHAR(9,3,128,3) 

1530 DISPLAY AT(8,6):M$(AM): 

: DISPLAY AT(8,11):AJ 
1540 DISPLAY AT (12, 1) : "BIS': " 
:: CALL HCHAR(13,3,128,3):: 
DISPLAY AT(12,6):M$(EM):: D 
ISPLAY AT(12,11):EJ 
1550 DISPLAY AT(24,1)BEEP:"1 
eertaste druecken" 

1560 CALL KEY(0,K,S) 

1570 IF K< >32 THEN 1560 :: C 
ALL CLEAR :: RETURN 
1580 CALL CLEAR :: DISPLAY A 
T(l,11)BEEP:"DIAGRAMM" :: CA 
LL HCHAR(2,13,128,8) 

1590 DISPLAY ATC6,3):"1->STR 
OM" :: DISPLAY AT(10,3):"2-> 
GAS" :: DISPLAY AT(24,3):"bi 
tte waehlen" 

1600 CALL KEY(0,K,S) 

1610 IF K-48<1 OR K-48>2 THE 
N 1600 

1620 ON K-48 GOTO 1630,1700 

1630 GQSUB 1770 

1640 F*="STROMVERBR." :: S$= 

"MAX.KWH" :: KTR=1 

1650 FOR N=DD TO 12 :: G(KTR 

)=HT(N,J) 

1660 KTR=KTR+1 :: IF KTR>12 
THEN 1680 ' 

1670 next N :: DD=l :: J=J+i 
:: GOTO 1650 
1680 GOSUB 1820 
1690 GOTO 1920 
1700 GOSUB 1770 
1710 F*="GASVERBR." :: S$="M 
AX.QM" :: KTR=1 
1720 FOR N=BD TO 12 :: G(KTR 
)=NT(N,J) 

1730 KTR=KTR+1 :: IF KTR>12 
THEN 1750 

1740 NEXT N :: DD=i :: J=J+l 
:: GOTO 1720 
1750 GOSUB 1820 
1760 GOTO 1920 
1770 DISPLAY AT(3,3)ERASE AL 
L:"DIAGRAMM VON" :: CALL HCH 
AR(4,5,128,12):: DISPLAY AT( 
8,3)BEEP:"MONAT [1-123" 

1780 DISPLAY AT(12,3):"JAHR 
[4 stellen!" 

1790 ACCEPT AT(8,17)BEEP VAL 
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:M$(M):: DISPLAY AT<6,8): H EN 
DE” :: CALL HCHAR(4,5,128, 6) 

770 DISPLAY AT<10,2):J+AJ :: 

DISPLAY AT(16,3):"2AEHLERST 
AND: " 

780 ACCEPT AT(16,17)BEER VAL 
IDATE{DIGIT,"."):H :: IF H=0 
00 THEN 790 ELSE S20 
790 H=0 :: N=0 :: EM=M-1 :: 

E J = A 3 + 3 IF EM=0 THEN 810 

800 GOTO 430 

810 EM= 12 :: EJ=EJ-1 :: GOTO 
430 

820 DISPLAY AT(3,3):"GAS: 

:: DISPLAY AT(4,7):" " : : 

ACCEPT AT(i£,17)PEEP VALIDAT 
E { DIGIT. 11 . ") ; H 

830 HT(M, J'-H-ZS :: NT(M,J>* 
H-ZS :: IF H r (M,J><ö OR NT\M 
. J) 'C THEN 2600 
840 ZS=H :: ZG=N 
850 REN 

860 NEXT M :: LM-i :: NEXT J 
370 DISPLAY AT(15,6)ERASE AL 
L:"DATEI EINLESEN" 

380 OPEN #1I "CS1", z EQUENTIAL 
. INTERNAL, INPUT ,FIXED 
890 INPUT # 1 : AM , A3 ,EN, E3 , ZS , 
ZG 

900 J=EJ-AJ 

910 FOR Z-0 TO J :: N=1 
920 INPUT #1:HT(N,Z),HT(N+1, 
Z),HT < N + 2,Z),HT(N + 3,Z),HT(N + 
4,Z),HT(N+5,2>,HT(N+6,Z) 

930 INPUT #1IHT(N + 7,2),HT(N + 

3, Z) .HT(N + 9, Z) ,HT (N + .10, Z),HT 
(N+11,Z> 

940 INPUT ftl: NT (N, Z) , NT (NM , 
2) , NT(N+2,Z),NT(N+3,2),NTCN+ 

4. Z),NT(N+5,Z),NT(N+6,Z) 

950 IMPUT ttl:NT(N+7,2),NT(N+ 
8, Z) , NT (M + 9,2) , NT (M +10,2) , NT 
(N +11,2 > 

960 NEXT Z 

970 CLOSE Hl .* : GOTO 430 
980 IF HT(AM,0)=0 THEN 1510 
:: DISPLAY AT(15,6)ERASE ALL 
:"DATEI SPEICHERN" :: 3=E3-A 
3 

990 OPEN #1:"CSl",SEQUENTIAL 
,INTERNAL,OUTPUT,FIXED 
1000 PRINT #1:AM,AJ,EM,EJ,2S 
,ZG 

1010 FOR 2*0 TO J :: M=1 
1020 PRINT 41:HT(N,Z),HT(N +1 
,Z),HT(N+2,Z),HT(N+3,Z>,HT(N 
+ 4<Z),HT(N+5,Z),HT(N + 6, Z) 
1030 PRINT #i:HT(N+7,Z),HT(N 
+9,2),HT(N+9,Z),HT(N+10,Z),H 
T (N +1 1,2 ) 


1040 PRINT # 1:NT(N,2),NT(N +1 
,Z),NT(N+2,Z),NT(N+3,2),NT(N 
+4,2),NT(N+5,2),NT(N+6,2) 

1050 PRINT #1:NT(N+7,2),NT(N 
+ 3,2) , MT (M + 9, Z ) , NT <N +10,2) , N 
T (N *■ 11,2) 

1060 NEXT Z 

1070 CLOSE #1 :: GOTO 430 
1080 IF HT(AM,0)=0 THEN 1510 
1090 DISPLAY AT(2,3)ERASE AL 
L:"LETZTE EINTRAGUNG:" :: CA 
LL HCHAR(3,5,128,17):I DISPL 
AY AT(4,3):M*(EM) 

1100 DISPLAY AT(4,3) :EJ :: C 
ALL HCHAR(5,5,123,10):: DISP 
LAY AT(8,3):"ZAEHLERSTAND ST 
POM: " 

1110 DISPLAY AT(10,3):ZS :: 
DISPLAY AT(14,3):"ZAEHLER3TA 
MD GAS:" :: DISPLAY at(16,35 
: ZG 

1120 DI SPL A Y AT (2 4, 3) BEEP : 1 

£-rrtöst - druscken " 

1130 CALL KEY(ö,K,S> 

1140 TF K C>32 THEN 1130 :: 6 
QTC J 30 

1150 IF HT(AM,0)=0 THEN 1510 
:: CALL CLEAR :: GOSUB 1520 
1160 DISPLAY AT(5,5):"5->DAT 
EN AUFLISTEN" :: DISPLAY AT( 

8.5) :"6-/DIAGRAMM" :: DISPLA 
Y AT(11,5):"7->TRENDANALYSE" 
1170 DISPLAY AT(14,5):"8->DA 
TEI AENDERN" :: DISPLAY AT(1 

7.5) :"9- ;HAUPTMENUE" :: CALL 
BOEDER(2,5,20,26) 

1180 DISPLAY AT(24,4)BEEP:"b 
i 113- viatrh 1 en" 

1190 CALL KEY(0,K,8) 

1200 IF S=0 THEN 1190 :: IF 
K -52<1 OR K-52>5 THEN 1190 
1210. ON K-52 GOTO 1220*1530, 
2040,2490,430 

1220 DISPLAY AT(3,i)ERASE AL 

L: "liste VON:" :: call hchar 

(4,3, 123,9) : DISPLAY AT(3,1 
);"MONAT Ci-123" 

1230 DISPLAY AT(12,1):"JAHR 
C4 STELLEN]" 

1240 ACCEPT AT(3,14)BEEP VAL 

IDATE(DIGIT)SIZE(-2):LM :: A 

CCEPT AT(12,IS)BEEP VALIDATE 

(DIGIT)SIZE(-4):LJ 

1250 IF LM'1 OR LM>12 THEN 1 

500 

1260 J=LJ-AJ IF J<0 OR LJ 
>EJ THEN 1500 :: IF LM<AM AN 
D J=0 THEN 1500 :: IF LM>EM 
AND LJ=E3 THEN 1500 
1270 DISPLAY AT(1,11)ERASE A 
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IDATE(DIGIT)SIZE(-2):DM :: A 
CCEPT AT(12,20)BEEP VALIDATE 
(DIGIT)SIZE<-4>:DJ 
1800 J=DJ-AJ :: DD=DM :: IF 
J<0 OR DJ>EJ THEN 1500 :: IF 
DM>EM AND DJ=EJ THEN 1500 : 
; IF DM<1 OR DM>12 THEN 1500 
IF DM<AM AND J=0 THEN 1 
: RETURN 
GM=G(1) 

FÜR N=2 TO 
THEN GOSUE 
NEXT N 
FK=GM/I9 
FOR Y=1 TO 


12 : 
1870 


IF G (N 


G(Y)=1 
; GOTO 


1810 
500 : 

1820 
1830 
) >GM 
1840 
1850 

1860 FOR Y=i TO 12 : 

NT(G(Y)/FK):: NEXT Y 
1830 

1870 GM=G(N):: RETURN 

1880 IF DM=1 THEN 1910 :: W= 

24-(2*DM):: V=2*DM 

1890 DS=SEG$(C$,DM*2-i,24) 

1900 E$=SEG$(C$,1,DM#2-2):: 

RETURN 

1910 D$=C$ :: E$="" :: RETUR 
N 

1920 CALL CLEAR 

1930 DISPLAY AT(24,3):D$ 

IF LEN (D$) =-24 THEN 1950 :: K 
=LEN(DD+3 

1940 DISPLAY AT(24,K):E$ 

1950 DISPLAY AT(i,3>:F$ :: D 
ISF'LAY AT(1, 14) : ''AB“ 

1960 DISPLAY AT(2,3):M$(DM): 

; DISPLAY AT(2,8):DJ 
1970 DISPLAY AT(i,2i):S$ :: 
DISPLAY AT(2,20):GM 
1980 1=1 

1990 FOR P=5 TO 23 STEP 2 
2000 IF G(I)=0 THEN 2020 
2010 CALL VCHAR(24-G(I),P,13 
0,G(I)):: CALL VCHAR(24-G(I) 

, P + l,131,G(I)) 

2020 1=1+1 :: NEXT P 
2030 CALL KEY(0,K,S):: IF S= 
0 THEN 2030 :: CALL CLEAR 
GOTO 1160 
2040 J=EJ-AJ :: IF J=0 OR EM 
=12 THEN 2370 :: DISPLAY AT( 
3,3)ERASE ALL:"1>STR0M“ :: D 
ISPLAY AT(6,3):"2>GAS" 

2050 DISPLAY AT(24,3)BEEP:"b 
it'te waeh len" 

2060 CALL KEY(0,K,S) 

2070 IF K-48C1 OR K-48>2 THE 
N 2060 

2080 ON K-48 GOTO 2090,2180 
2090 DISPLAY AT(1,1)ERASE AL 
LI"TRENDANALYSE STROMVERBRAU 
CH” :: CALL HCHAR(2,3,128,28 
):: GOSUB 2360 
2100 FOR N=i TO 12 


2110 DISPLAY AT(4+N,3):M$(N) 

: CALL VCHAR(4 + N,9,129,1) : : 
DISPLAY AT(4+N,8):USING 420 
:HT(N,J-i) 

2120 CALL VCHAR (4+N, 18, 129-, 1 
):: IF HT(N,J)=0 THEN GOSUB 
2150 

2130 DISPLAY AT(4+N,21):USIN 
G 420:HT(N,J)I: GH=GH+HT(N,J 
-1):: GT=GT + HT(N,J) 

2140 NEXT N :: GOTO 2300 
2150 IF N=EM+1 THEN 2170 
2160 HT(N, J)=HT(N, J-D+FK :: 

DISPLAY at(4+N,19):"**" :: 
RETURN 

2170 FK=INT(GT-GH)/(N-l):: 0 
OTO 2250 

2180 DISPLAY AT(1,1)ERASE AL 
LI''TRENDANALYSE GASVERBRAUCH 
CALL HCHAR(2,3,128,28): 
GOSUB 2360 
2190 FOR N=1 TO 12 
2200 DISPLAY AT(4+N,3):M$(N) 
:: CALL VCHAR(4+N,9,129,1):: 

DISPLAY AT(4+N,S):USING 440 
:NT(N,J-l) 

2210 CALL VCHAR(4+N,18,129,1 
):: IF NT(N,J)=0 THEN GOSUB 
2270 

2220 DISPLAY AT(4+N,21):USIN 
G 440: NT (N, J) : : GH=GH + NT (N-, J 
-1):: GT=GT +NT(N,J) 

2230 NEXT N :: GOTO 2300 
2240 IF N=EM+1 THEN 2260 
2250 HT(N,J)=HT(N, J-D+FK :: 

DISPLAY AT (4 + N, 19) : "**" .1 : 
RETURN 

2260 FK=INT(GT-GH)/(N-l)•: G 
OTO 2250 

2270 IF N=EM+1 THEN 2290 
2280 NT(N,J)=NT(N,J-l)+FK :: 

DISPLAY AT(4+N,19): H **" D 
RETURN 

2290 FK=INT(GT-GH)/(N-l):: G 
OTO 2280 

2300 CALL HCHARdS,3,128,28) 
:: DISPLAY AT(19,1):"GESAMT" 
:: DISPLAY AT(19,7):USING 4 
30: GH 

2310 DISPLAY AT(19,20):USING 
430:GT :: DISPLAY AT(2i,l): 
"** HOCHGERECHNET" 

2320 DISPLAY AT(24,1)BEEP:”1 
eertaste druecken" :: FOR N= 
EM+1 TO 12 :: HT(N,J)=0 :: N 
T(N,J)=0 :: NEXT N 
2330 GH,GT=0 
2340 CALL KEY(0,K,S) 

2350 IF K< >32 THEN 2340 :: C 
ALL CLEAR :: GOTO 1160 
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2360 DISPLAY AT(3,9):EJ-1 :: 
DISPLAY AT(3,22):EJ :: CALL 
HCHAR(4,12,128,4):: CALL HC 
HAR(4,25,128,4):: RETURN 

2370 DISPLAY AT(10,3)ERASE A 
LL:"TRENDANALYSE NICHT MOEGL 
jch- :: for N=i to 800 :: ne 
XT N :: CALL CLEAR 

2380 GOTO 1160 
2390 IF HT ( AM,0 ) =0 THEN 1510 
:: lj=ej-aj :: lm=em+i :: I 
F Lli>12 THEN 2400 :: GOTO 24 
10 

2400 LM=i :: LJ=LJ +1 
2410 DISPLAY AT ( 1,7)ERASE AL 
L:“DATEI ERWEITERN" :: CALL 
HCHAR(2,9,128,15) 

2420 DISPLAY AT ( 6,1): " DATEIB 
eginn:" :: Display at<6,13>: 
M*(AM):: DISPLAY AT(6,17):AJ 
2430' DISPLAY AT ( 12,1):"DATEI 

ende:" :: Display at( 12 ,13): 
M$(EM):: DISPLAY AT(12,17):E 
J 

2440 DISPLAY AT ( 24, 1) BEEP :"1 
eertaste druecken" 

2450 CALL KEY(0,K,S) 

2460 IF K< >32 THEN 2450 
2470 DISPLAY AT(10,1 ) ERASE A 
LLI"BEI ENDE DER DATEIEINGAB 
E" 

2480 DISPLAY AT(14, 7) :“000 E 
INGEBEN" :: CALL HCHAR(15,9, 
128,12):: FOR N=1 TO 500 :: 
NEXT N :: GOTO 750 
2490 IF AM=0 THEN 1500 :: DI 
SPLAY AT(1,1)ERASE ALL:"AEND 
ERUNG EINER EINTRAGUNG“ ::~C 
ALL HCHAR(2,3,128,26) 

2500 DISPLAY AT(6,1):“MONAT 
E1-123?“ :I DISPLAY AT(10,1) 
BEEP: “JAHR C4 stellen!?" 

2510 ACCEPT AT(6,15)BEEP VAL 
IDATE(DIGIT)SIZE(-2):NM :: A 
CCEPT AT(10,19)BEEP VALIDATE 
(DIGIT)SIZE(-4):BJ 
2520 NJ=BJ-AJ :: IF NJ<0 OR 
BJ>EJ THEN 1500 :: IF NM>EM 
AND BJ*EJ THEN 1500 :: IF NM 
<AM AND NJ«0 THEN 1500 
2530 IF NM>12 OR NM<1 THEN 1 
500 :: DISPLAY AT<1,1)ERASE 
ALL:"EINTRAGUNG ALT“ :: CALL 
HCHAR(2,3,128,14) 

2540 DISPLAY AT(6,1):“STROM: 
" :: DISPLAY AT(6,8):HT(NM,N 
J) 

2550 DISPLAY AT (8,1): "GAS: " 
:: DISPLAY AT(8,8):NT(NM,NJ) 
2560 DISPLAY AT(12,1):"EINTR 


AGUNG NEU” :: CALL HCHAR(13, 
3,128,14) 

2570 DISPLAY AT(17,1):"STROM 
Display at(19,d:-ga8: 

N 

2580 ACCEPT AT(17,8)BEEP VAL 
IDATE(DIGIT,"."):HT(NM,NJ):: 

ACCEPT AT(19,8)BEEP VALIDAT 
E(DIGIT,".“):NT(NM,NJ) 

2590 GOTO 480 

2600 DISPLAY AT(10,3)ERASE A 
LL:“EINGABE UEBERPRUEFEN“ :: 

DISPLAY AT(13,3)BEEP:“ZAEHL 
ERSTAND < VORMONAT" 

2610 FOR N=*l TO 500 :: NEXT 
N :: GOTO 760 

2620 SUB BORDER(ZI,S1,Z2,S2) 
2630 CALL HCHAR(ZI,S1,135):: 

CALL HCHAR(ZI,S2,136) 

2640 CALL HCHAR(Z2,S1,137):: 

CALL HCHAR(Z2,S2,138):: CAL 
L HCHAR(Zi,Sl+l,133,S2-S1-1) 
2650 CALL HCHAR(Z2,S1+1,133, 
S2-S1-1):: CALL VCHAR(Z1+1,S 
1,134,Z2-Z1-1) 

2660 CALL VCHAR(ZI+1,S2,134, 
Z2-Z1-1) 

2670 SUBEND 


•100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 

250 CALL CLEAR :: CALL SCREE 
N (13) 

260 PRINT ****** PRIMZAHLLIS 

IC TTT • • t • 

270 INPUT “ANFANG(A),ENDE(E) 
": A E 

280’ IF A/2=INT (A/2) THEN A=INl 
T(A)+1 

290 T*1 :: FOR N“A TO E STEP 1 
2 

300 T=T+2 :: IF T*T>N THEN P 
RINT Ni:: T-l :: GOTO 330 
310 IF N/T=INT(N/T)THEN T=1 
:: GOTO 330 
320 GOTO 300 
330 NEXT N 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PRIMZAHLEN 

Copyright by 
Dr. Helmut KXditz 

Benoetigte Geraete 
TI99/4A Konsole 
Ext. Basic 

Speicherbelegung 
231 Bytes 


* 

* 

# 

* 

* 

* 

* 

# 

# 

* 

* 

*. 

* 


***** * *** XXX ********** 





T EST 

TI 99 PP 
Printer-Port und 
Betriebserweiterung: 

Viele User haben schon gefragt, ob es für 
den TI 99/4A einen Drucker gibt, den man ohne 
die Peripherie-Box betreiben kann. 

Es ist möglich. Penta Electroncis (Austria) 
bietet jetzt eine Schnittstelle an, mit der man 
einen Drucker mit Parallelschnittstelle betreiben 
kann. Diese Erweiterung ist zu dem Preis von ca. 

550,— DM im Fachhandel erhältlich. 


Angeschlossen wird das 
Gerät an den seitlichen 
Port beim Computer, wo¬ 
bei der Bus durchge¬ 
schleift ist, d.h. weitere 
Peripherie läßt sich an¬ 
schließen. Das Modul be¬ 
steht aus einem 8 KBytes- 
ROM, dasBank-Selected 
geschaltet ist, und auf 
der Adresse > 1900 der 
CRU liegt, welche ur¬ 
sprünglich für den 
EPROM-Programmierer 
vorgesehen war. Die Ab¬ 
messungen dieses Gerätes 
überschreiten nicht die 
eines Moduls. Das Kabel, 
das die Verbindung zwi¬ 
schen Schnittstelle und 
Computer herstellt, ist 
1,5 m lang und abge¬ 
schirmt. Die interne Soft¬ 
ware der Schnittstelle 
stammt aus Deutschland. 
Wenn Sie nun den. Com¬ 
puter anschalten, meldet 
sich der Port mit der 
Meldung „PRINTER 
PORT INSTALLED“ im 
Titelbild. Nun springen 
Sie noch in das Basic und 
schon können Sie zu 
drucken beginnen. 

Neben der normalen Druk- 
kerausgabe kann diese Er¬ 
weiterung auch noch ver¬ 
schiedene andere Funktio¬ 
nen ausfiihren. 

Mit der Option “CHAR“ 
können Sie die Standard- 
Zeichen des Computers 
ohne großen Aufwand um¬ 
definieren, da in dem 
ROM der Schnittstelle 
schon kleine Buchstaben 
und zusätzliche Sonderzei¬ 
chen vorhanden sind. 

Die Option “HEX” stellt 
einen weiteren Befehl des 
Ports dar. Mit ihm kann 
man die Speicherzellen 


des Computers lesen und 
auch in sie schreiben. So 
kann man zum Beispiel 


das Aussehen des Cursors 
verändern oder auch di¬ 
rekt Zeichen auf den Bild¬ 
schirm schreiben. 

Ein weiterer Befehl, der 
in diese Richtung der Ma¬ 
schinensprache geht, 
stellt das Befehlswort 
“DEBUG“ dar. Es ermög¬ 
licht, die Speicherinhalte 
zu disassemblieren, d.h. 
der Inhalt wird in die 
Programmiersprache 
Assembler umgewandelt. 
Die Schnittstelle ist nicht 
nur für den Drucker nutz¬ 
bar, sondern man kann sie 
auch, ohne großen Auf¬ 
wand, zu einem Eingabe- 
Ausgabe-Port Umrüsten. 
Mit ihm ist es dann mög¬ 


lich, Temperaturen zu 
messen oder ganz einfach 
andere Geräte daran an¬ 
zuschließen- Für die Aus¬ 
gabe stehen 8 Bits zur Ver¬ 
fügung und für die Einga¬ 
be kann man 4 Bits 
nützen. 

Die Option “MONIT“ 
dient zum Testen der 
Standardzeichen auf dem 
Drucker mit den zugehöri¬ 
gen Hexadezimalwerten. 

Mit der Option “SCROLL“ 
wird die Textverarbeitung 
auf dem Bildschirm ver¬ 
einfacht, da man durch 
den Befehl den Bildschirm 
in alle 4 Richtungen ver¬ 
schieben kann. 

Zudem ist in dem Gerät 
eine Hardcopy-Routine 
für Standardzeichen ent¬ 
halten, die aber im EX- 
Basic nur als Command 
benützt werden kann. 

Die Befehle “BUFFL“ 
und “BUFFH” kopieren 
ein Basic-Programm in 
einen bestimmten Spei¬ 
cherbereich, man hat das 
Programm also zweifach 
im Computer zur Verfü¬ 
gung. Falls man nun mit 
der Quit-Taste das Pro¬ 
gramm, und somit auch 
den Basic-Modus, verläßt, 
so kann man das Pro¬ 
gramm danach wieder ver¬ 
fügbar machen. Bei die¬ 
sem Befehl stehen Ihnen 
im TI-Basic mit Speicher¬ 
erweiterung 24 KBytes 
zur Verfügung. Im EX- 
Basic allerdings nur 8 
KBytes, wenn Sie die 32- 
KByte Speichererweite- . 
rung besitzen. 

Als letzten Befehl kön¬ 
nen Sie “HELPP” nutzen. 
Bei diesem Befehl wird 
eine Kurzbefehlsanleitung 
auf dem Drucker ausgege¬ 
ben, die aber leider- bei 
mir einen Fehler enthielt, 
welcher aber nicht von 
solch entscheidender Wich¬ 
tigkeit ist. 

Fazit: Eine Erweiterung,. ' 
deren Software über eine 
reine Druckerschnittstelle 
weit hinausgeht. Dennoch 
ist das 99-PP nicht ganz 
billig, und so muß jeder 
selber entscheiden, ob 
sich die Anschaffung lohnt. 
Je nach Anwendung ste¬ 
hen nützliche zusätzliche 
Befehle zur Verfügung. 

Heiko Liebald 
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EPROMMER 


Eprom-Programmier- 
Gerät für Jedermann 


Fortsetzung aus Heft 6 

Beim Abdruck des ersten Teiles in 
Heft Nr. 6/85 ist einiges schiefge¬ 
gangen, das hier zunächst einmal zu 
korrigieren ist. 

In dem Abschnitt, der auf Seite 5 in 
Spalte 1 unten mit ,,Die Eprommer- 
Karte (Bild 1) ...“ beginnt, fehlen 
etliche Zeilen. Richtig heißt es: Sie 
enthält... vier DIL-Schalter für die 
Auswahl der verschiedenen Eprom- 
Typen(2516 2"16. 2532, 2732, 
2764/271 28). vier Kontroll-Leucht- 
dioden und einen Reset-Taster. Bei 
der Konzeption des Eprommers 
stand die Absicht im Vordergrund, 
den Aufwand möglichst gering zu 
halten. Das ist auch deshalb sinn¬ 
voll, weil das Gerät für den verstän¬ 
digen Hobby-Elektroniker gedacht 
ist, und nicht als Muster für eine 
kommerzielle Serie. 

Bild 1, die Ansicht der Eprommer- 
Karte, ist versehentlich auf Seite 
54 gelandet, dafür die Ansicht ei¬ 
ner Mechatronic-Schnittstellenkarte 
fälschlich beim Eprommer-Artikel. 

Das ganz abhanden gekommene 
Bild 3, eine Wiedergabe des Bild¬ 
schirms, findet sich jetzt in dieser 
Fortsetzung. Auch der Autor hat 
einen Fehler zu korrigieren: In der 
Schaltung sind das Pluszeichen (+5V) 
am 2532-Schalter und das Masse¬ 
zeichen am 2732-Schalter gegenein¬ 
ander auszutauschen. 

Es folgt jetzt eine Kommentierung 
des beigefügten Assembler-Pro¬ 
gramms für die Eprommer-Steuerung. 
Weil der Tagged-Object-Loader des 
Extended Basic-Moduls keine Referen¬ 
zen (REF) kennt, werden dem Pro¬ 
gramm zunächst die Einsprungadres¬ 
sen der verwendeten Hilfsprogramme 
durch Equates (EQU) bekanntge¬ 
macht. Dann werden numerische 
und Text-Konstante definiert und 
•anschließend folgt eine Reihe von 
Unterprogrammen (DELAY bis 
HEXA). 

Das Hauptprogramm hat den Namen 
EPROM und kann aufgrund der An¬ 
weisung DEF EPROM mittels 
CALL LINK(“EPROM“) unter die¬ 
sem Namen von Basic her aufgeru¬ 
fen werden. 

Nach dem Einsprung wird zunächst 
— sofern noch nicht geschehen — der 
Basic-Offset für die anzuzeigenden 
Texte berücksichtigt sowie der 


Schirm gelöscht und die 16 Adress- 
und Steuerbits nullgesetzt. Es folgt 
der Bildschirmaufbau mit der Titel¬ 
zeile und der Abfrage, ob ein 16- 
kBit-Eprom zu programmieren ist. 

Die Antwort bestimmt den Wert 
von FLAG. 

Alle Texte werden mit Hilfe des 
Unterprogramms (im-Foleenden 
“UP”) TXTWR auf den Schirm ge¬ 
schrieben, wobei die Parameter durch 
DATA nach der Verzweigungsan¬ 
weisung übergeben werden. Auf die 
folgenden Fragen nach den benötig¬ 
ten Adressen (RAM Start, RAM 
Last+1, EPROM Start) folgt jeweils 
eine Kette von UP-Aufrufen: In 
ADRE wird mittels KEY LOP festge¬ 
stellt, welche Taste gedrückt wurde. 
CHECK prüft anhand der ASCII- 
Werte in TABLE, ob die Taste ei¬ 
ner Hexadezimalziffer entsprach. 
Dann wird die Ziffer auf den Schirm 


EPROM-Burner (Jue,12/84) 

— 

16K-Eprom? (X/N) 

N 

RAM Start Address 

>C000 

RAM Last+1 Address 

>DO00 

Eprom Start Address 

>0000 

Read Ff? Prog V'fy Back Exit 

okay 


_ i 


Das Aussehen des Bildschirms beim 
EPROMMER-Steuerprogramm 


geschrieben und in einen Adressen- 
STRING eingereiht. In TABLE folgt 
jeweils auf die ASCII-Nummer der 
zugehörige Wert als Hex-Byte. Das 
nutzt das UP HEXA aus, um aus 
dem Adressen-STRING (4 Bytes) 
die Adresse als Hexadezimalzahl 
(2 Bytes) zu bilden. 

Mit TASK beginnt die Abfrage, wel¬ 
che Aufgabe als nächste zu erledigen 
ist. Den Aufgaben entsprechen die 
folgenden Programmblöcke, deren 
Bezeichnungen die jeweilige Auf¬ 
gabe andeuten. 

Als Beispiel sei PROGR besprochen: 
Zunächst wird in der Auswahlzeile 
das P von PROG mit dem Zeichen 
‘=‘ (hex.9D mit Basic-Offset) unter¬ 
strichen. Dann wird in RI2 die 
CRU-Bezugsadresse für die Adress- 
und Kontrollbits (Bausteine 74LS 
259) gesetzt und sichergestellt, daß 
die Programmierung ausgeschaltet 
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ist (SBZ TIM, d.h. Bit 13 nullset¬ 
zen). Mit SBO PGM (Bit 15 ein) 
wird über das Relais die für das Pro¬ 
grammieren nötige höhere Spannung 
an das Eprom angelegt. Es folgt ei¬ 
ne „Notbremse“: Mit Taste B kann 
ein Rücksprung zur Auswahlzeile 
erfolgen. Ansonsten werden jetzt 
mit der CRU-Anweisung LDCR 
R8,8 die 13 Adressen-Bits gesetzt. 
Das sind die niederwertigen 13 von 
16 Bits der Eprom-Startadresse, die . 
in R7 steht. Vorbereitend für das 
Programmieren des nächsten Bytes 
wird die Adresse in R7 um eins er¬ 
höht. Dann wird die CRU-Bezugs¬ 
adresse Für die Daten-Bits gesetzt, 
der jeweils durch R6 adressierte 
RAM-Inhalt nach R8 geschoben, die 
Adresse in R6 vorbereitend um eins 
erhöht und mit Hilfe der CRU-An¬ 
weisung LDCR R8,8 das Daten- 
Byte in das Schieberegister 74LS299 
übertragen. Damit ist die Vorberei¬ 
tung für das Programmieren eines 
Bytes fertig, und es folgt das Ein¬ 
schalten des Kontroll-Bits TIM, das 
z.B. beim 2764-Eprom das Null¬ 
setzen des Anschlusses PGM (Pin 27) 
bewirkt und damit den Program¬ 
mierimpuls einleitet. Dieser Zustand 
bleibt 50 Millisekunden lang beste¬ 
hen, solange nämlich, bis in der fol¬ 
genden Schleife der RIO-Inhalt von 
anfangs hex.lOBO auf 0 herunterge¬ 
zählt ist. Anschließend wird das 
Kontroll-Bit TIM wieder ausgeschal¬ 
tet. Es erfolgt ein Rücksprung zur 
„Notbremse“ und das Programmie¬ 
ren des nächsten Bytes, bis schließ¬ 
lich die RAM-Adresse Last+1 er¬ 
reicht ist. 

Für ein 64kBit-Eprom dauert die 
Programmierung.etwa 7,5 Minuten. 
Davon entfallen allein 6,9 Minuten 
auf die Programmierimpulse. Die 
Nutzung eines Fast-Programming- 
Modus kann deshalb bei großen 
Eproms für Ungeduldige von Inter¬ 
esse sein. Entsprechende Software 
befindet sich in Vorbereitung. 

Bei einem 128kBit-Eprom wird bei 
Angabe der Eprom-Startadresse 
hex.0000 tatsächlich ab hex.0000 
programmiert oder gelesen, wenn 
sich der Umschalter auf der Karte in 
der Stellung 128K/U (U wie „un¬ 
ten“) befindet. Für die obere Hälfte 
ab hex.2000 wird ebenfalls die 
Eprom-Startadresse hex.0000 ange¬ 
geben, der Schalter jedoch-wie 
auch für alle anderen Eproms — in 
die Stellung NORMAL gebracht. 

Die übrigen Programmblöcke, 

READ (Eprom-Inhalt ins RAM 
schreiben), VERIFY (Eprom-Inhalt 
mit RAM-Inhalt vergleichen) und 
FFTST (Kontrolle auf FF in allen 







Das „richtige" Foto 


werden, sollten aber anhand der 
Kommentare zu PROGR verständ¬ 
lich sein. 

Hier ein Beispiel zur EPROMMER- 
Benutzung: 

EPROMMER mit XB-Modul ein¬ 
stecken 

Schalter 2764 einschalten 
Konsole einschalten 
Reset drücken 
Eprom in Sockel stecken 
Extended Basic anwählen 
CALLINIT 

CALL LOAD(“DSKl.EPROM“) 
CALL LOAD(“DSKl .INHALT“) 
CALL LINK(“EPROM”) 

N 

A000 

BA38 

0000 

F 

Programmierspannung ein 

P 

V 


Programmierspannung aus 
Konsole aus 

Dabei ist angenommen, daß sich das 
EPROMMER-Steuerprogramm als 
Object-Code unter dem Namen 
EPROM auf einer Diskette in Antrieb 
1 befindet. Es wird vom XBasic- 
Loader in das Low Memory 
(hex.2000-3FFF) geladen. INHALT 
sei der File-Name des Object-Code- . 
Programms, das in das Eprom ge¬ 
schrieben werden soll. Es sollte auf¬ 
grund einer AORG-Anweisung im 
Assembler-Code an einer vorbestimm¬ 
ten Stelle im RAM beginnen, im 
Beispiel bei hex.AOOO. Es sei ferner 
— etwa mit Hilfe des DEBUG-Pro- 
gramms — vorher festgestellt wor¬ 
den, wo es endet. Im Beispiel ist 
hex!BA38 das erste freie Byte hin¬ 
ter dem Programm INHALT. Das 
Eprom sei vom Typ 2764. Deshalb 
das N für “nicht 16k“. Zunächst 
wird mit F überprüft, ob das Eprom 


im angegebenen Bereich (hex:0000 
bis 1A38) leer ist. Dann wird die 
Programmierspannung (bei den mei¬ 
sten 2764-Eproms 21 V, bei einigen 
nur 12,5 V) eingeschaltet und mit 
P die Programmierung gestartet. An¬ 
schließend wird mit V geprüft, ob 
die Programmierung erfolgreich war. 
Zum Schluß noch ein kleines Pro¬ 
blem - mit Lösung: 

Wie geht man vor, wenn ein Eprom ' 
für einen Speicherbereich beschrie¬ 
ben werden soll, für den kein RAM 
verfügbar ist, z.B. für die Bereiche 
hex.6000-7FFF für Spiel- oder 
Hilfsprogramme oder hex.4000- 
5FFF für DSR-Programme? Wie 
kann man ein Programm mit einer 
solchen ADRG-Anweisung laden? 
Das kleine angefügte Basic-Pro- 
gramm hilft. Es schreibt auf die Dis¬ 
kette unter dem durch ergänzten 
Originalnamen einen modifizierten 
Tagged-Object-Code, der inhalts¬ 
gleich mit dem ursprünglichen gela¬ 
den wird, jedoch ab einer Adresse, 
deren erste Hexziffer vom Pro¬ 
gramm erfragt wird, z.B. A. An¬ 
schließend mit dem X-Basic-Loader 
geladen, ist dieses Programm dort 
freilich nicht ausführbar, jedoch 
geeignet für die Kopie ins Eprom, 
das sich an seinem vorgesehenen 
Platz dann ganz, normal benimmt. 

W. Jüngst 


100 1 PROGRAMM ZUR VERSCHIEB 
UNG DER LADEADRESSE GEGEN DI 


E AORG-ADRESSE 

110 ! BEI EINEM AORG-OBJECT- 

PILE OHNE C-QPTION 

120 INPUT "ÜBJECT-FILE-MAME: 


" :fq$ 

130 IMPUT "LADEADRESSE, 1.HE 

xziffer: >":la* 

140 FN^FOsec 1 *" :: print "ob 
JECT-FILE-NAME MIT AEND.I " J 
FN$ 

150 OPEN #l:FO$,INPUT ,FIXED 
80 :: OPEN #2:FN$,OUTPUT,FI 
XED 80 

160 INPUT #i:a$ :: ascalt=as 
C<SEG*<A$, 15,i>):: DAS£=ASC( 
LA$)-ASCALT 

170 A$=SEG$<A$, 1, 14)8cCHR$(AS 
CALT+DASC)&SEG$(A$,16,48)&"8 
" &SEG$ (A$, 65,16) 

180 PRINT #2:A$ 

190 FÜR 1=2 TO 1000 :: INPUT 

#i:a$ :: if seg$(A$, l,l)<>" 

9" THEN 32767 

200 A$="9"KCHR$(ASC<SEG$(A$, 
2,1))+DASC)fcSEG$<A$,3,78) 


210 FOR J=6 TO 66 STEP 5 :: 
IF SEG$(A$,J,1)< >"7" THEN 23 
0 

220 A$=SEG$(A$,1,J-i)&"8"&SE 
G$(A$,J+l,80-J)I: GOTO 240 
230 NEXT J * 

240 PRINT #2:A* :: IF EOF(1) 
=1 THEN 260 

250 NEXT I v 

260 CLOSE #1 :: CLOSE «2 


*^HHt*****^HHt************************* 

* SOFTWARE ZUM EPROMMER AM GROMPORT * 

* DES TI99/4A IN VERBINDUNG * 

* MIT DEM EXTENDED BASIC MODUL * 

* W.JUENGST (12/84) * 

************************************* 


VSBR 

DEF 

EQU 

EPROM 

>2028 

VSBW 

EQU 

>2020 

VMBW 

EQU 

>2024 

KSCAN 

EQU 

>201C 

DATEN 

EQU 

>1900 

ADRES 

EQU 

>1910 

TIM 

EQU 

13 

DRD 

EQU 

14 

PGM 

EQU 

15 
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EPROMMER-ASSEMBLER 

Tabelle 

l: - 




Equates 

für die H L If srout inen : Zu Assembler-Kurs auf Seite 61 

Bez. 

E/A 

Mini.wem 

E;-;-Bas Lc 

Beschr. 

USBU 

>210C 

>6024 

>2020 

Schrei b t ein Bote l n U D P - R. a m 

UP1BW 

>2110 

>6028 

>2024 

Schreibt Mehrere Butes ln UDP-Raw 

VSBR 

>2114 

>602C 

>2028 

Liest ein B i j t- e a u s U D P - R a m 

UM BR 

>2110 

>6030 

>202 C 

Liest mehrere Bytes aus UDP-Ram 

UWTR 

>21 IC 

>6034 

>2030 

Sehr e l b t l n U 0 P-Re qls ter 

KSCAN 

>2108 

>6020 

>20 IC 

T a sta turabfraae 

XfILLNK 

>2104 

>60 IC 

>2018 

A u s f üh r e n e l n e r B e t r l e b s s g s t e m - R o u 11 n e 

DBRL.NK 

>2120 

>6038 

Fi. a ■ 

A u f r u f e n eine r D S R -- R o u 11 n e 

GPLLNK 

>2100 

>6018 

n •- a „ 

A u s f ü h r e n e l n e r G P L - R o u 11 n e 

LOADER 

>2124 

>603C 

n. a. 

L. a d e n v o n A s s e m b 1 e r ™ P r o a r a iyi m e n 

NUMASG 

n. a. 

>6040 

>2008 

Wer t an n um- B as l cvar l ab1e 

NUMREF 

n. a. 

>6044 

>20 0C 

U e r t v o n n u m . ß a s l c v a r i. a b l e h o 1 e n 

STRASG 

n. a. 

>6048 

>2010 

Ul e r t a n S t r l n q - B a s 1 c v a r l a b 1 e 

STRREF 

n. a. 

>60 4 C 

>2014 

U e r t v o n S t r 1 n q -- Ei a s 1 c v a r l a b 1 e 

ERR 

n. a . 

>6050 

>2034 

R u e c k k e h r B a s l c mit E r r o r 

i 


TIME 

EQU > 10B0 


0WNWS 

BSS 32 


FLAG 

BSS 2 



STRING 

BSS 4 



RAMSTA 

BSS 2 



RAMEND 

-BSS 2 



EPRSTA 

BSS 2 



OFFSET 

BYTE 

>60 


NOKEY 

BYTE 

>FF 


B 

BYTE 

’ B ’ 


E 

BYTE 

* E ’ 


V 

BYTE 

’ V’ 


P 

BYTE 

’P’ 


Y " 

BYTE 

* Y’ 


N 

BYTE 

* N ’ 


R 

BYTE 

’R’ 


F 

BYTE 

* F * 


TABLE 

DATA 

>3000,>3101,>3202 



DATA 

>3303,>3404,>3505 



DATA 

>3606,>3707,>3808 



DATA 

>3909,>410A,>420B 



DATA 

>430C,>440D,>450E 



DATA 

>460F,>0000 


LEER 

TEXT 

1 

1 

TEXT# 

TEXT 

1 EPROM-Burner (Jue,12/84) 

TEXT 1 

TEXT 

’16k-eprom? (Y/N) 


CURSOR 

BYTE 

>1E 


TEXT2 

TEXT 

’rgrn start address 

>’ 

TEXT3 

TEXT 

’ram last+1 address 

>’ 

TEXT4 

TEXT 

’eprorn start address 

>’ 

TEXT5 

TEXT 

’Read F-f? Prag V ,5 -fy 

Back 

TEXT5F 

TEXT 

’ Exit’ 


TEXT6 

TEXT 

» 1 


TEXT7 

TEXT 

’okay ’ 


TEXT3 

TEXT 

’error: not empty’ 


TEXT9 

TEXT 

’ error: not equal’ 



DELAY 

LI 

LI R14,>4000 

DEC R14 

JNE LI 

RT 

VERZOEGERN 

CLEAR 

L2 

LI R0,>2FF 

LI RI,>8000 

BLWP §VSBW 

DEC R0 

JNE L2 

RT 

SCHIRM 

LOESCHEN 

TXTWR 

MOV *R11+,R0 

MOV *R11+,R1 

MOV *Rli+,R2 

BLWP §VMBW 

RT 

TEXT 

SCHREIBEN 

KEYLOP 

MOV RI1,R10 

TASTATUR 

L3 

MOVB §CURSOR,RI 

ABFRAGEN 


BLWP §VSBW 
CLR §>8374 
BLWP §KSCAN 
CB §NOKEY,§>8375 
JEQ L3 

MOVB §>8375,RI 
BL §DELAY 
B *R10 

CHECK LI R2,T ABLE-2 
L4 INCT R2 

CLR R? 

MOVB *R2,R9 
JNE L5 

MOV *R11,R11 
PT 


EINGABE 

PRUEFEN 
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L5 CB R1,R9 

JNE L4 
INC.T RI 1 
RT 

ADRE MOV R11,R8 ADRESSE 

LI R5,STRING ALS STRING 

LI R4,4 EINLESEN 

TASTE BL §KEYLOP 

BL §CHECK 
DATA TASTE 
MOVB R1,*R5+ 

AI RI,)6000 
BLWP §V8BW 
INC R0 
DEC R4 
JNE TASTE 
P *R8 


HEXA 


L6 


EPROM 


L7 


L8 


L9 


L10 


MOV R11,R10 
LI R4,4 
M0VB.*R3,Ri 
BL §CHECK 
DATA $+2 
INC R2 

MOVB *R2,*R3+ 

DEC R4 
JNE L6 
CLR P3 

MOVB *R6+,R3 
SLA R3,4 
AB *R6+,R3 
MOVB R3,*R7± 

MOVB *R6+,R3 
SLA R3,4 
AB *R6,R3 
MOVB R3,*R7 
B *R10 
LWPI OWNWS 
MOV §LEER,R1 
CI RI,>2020 • 

JNE L8 
LI RI,LEER . 

AB §OFFSET,*Rl+ 
CI RI,LEER+204 
JL L7 
BL §CLEAR 
BL §TXTWR 
DATA 1, TEXT0,24 
LI R12,ADRES 
CLR R7 
LDCR R7,0 
BL §TXTWR 
DATA 97,TEXT1,23 
CLR §>8374 
BLWP §KSCAN 
CB §Y,§>8375 
JEQ LI1 
CB §N,§ >8375 
JNE L10 
SETO §FLAG 
MOVB §N,R1 
JMP L12 


HEX-ADRESSE 
AUS STRING 
EILDEN 


PROGRAMM¬ 

BEGINN 


16k-EPR0M ? 


Lll 

CLR §FLAG 

MOVB §Y,R1 


L12 . 

LI R0,119 

AI RI,>6000 

BLWP §VSBW 



BL §TXTWR 

DATA 183,TEXT 6,4 
BL §TXTWR 

DATA 161,TEXT2,22 
A R2,R0 

BL §ADRE 

RAM-START- 


LI R3,STRING 

MOV R3,R6 

LI R7,RAMSTA 

BL §HEXA 

ADRESSE ? 


BL §TXTWR 

DATA 247,TEXT6,4 
BL §TXTWR 

DATA 225,TEXT3,22 
A R2,R0 

BL §ADRE 

RAM-END+1- 


LI R3,STRING 

MOV R3,R6 

LI R7,RAMEND 

BL §HEXA 

ADRESSE ? 


BL §TXTWR 

DATA 312,TEXT6,4 
BL §TXTWR 

DATA 289,TEXT4,22 
A R2,R0 

BL §ADRE 

EPROM-START- 


LI R3,STRING 

MOV R3,R6 

LI R7,EPRSTA 

ADRESSE ? 


BL §HEXA 

BL §TXTWR 

DATA 417,TEXT5,28 

• 

TASK 

LI R12,ADRES 

SBZ DRD 

NAECHSTE 


SB2 PGM 

SBZ TIM 

MOV §FLAG,§FLAG 
JEQ $+4 

SBO TIM 

MOV §RAMSTA,R6 

MOV §EPRSTA,R7 

CLR §>8374 

AUFGABE ? 

L13 

LI R0,446 

LI RI,>7E00 

BLWP §VSBW 


L14 

BLWP §KSCAN 

CB §N0KEY,§>8375 
JEQ LI4 

LI R0,446 

L.I RI, >8000 

BLWP §VSBW 

BL §TXTWR 

- 


DATA 449,LEER,23 
BL §TXTWR 



DATA 545,LEER,23 
LI R1,>9D00 

CB §R,§>8375 

JNE ASKF 

INHALT LESEN 
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ASKF 

ASKE 


ASKV 


ASKP 

READ 
L 15 


'7ERIRY 


LI 6 


L17 


FFT ST 


B §READ 
CB §F,,§>8375 
JNE ASKE 
B §FFTST 
CB §E,§ >8375 
JNE ASKV 
LI Ri2,ADRES 
CLP. R7 
LDCR R7,0 
CLR §>837C 
LWPI >83E0 
B 5.;0070 
CB §V , § >8375 
JEQ VERIFY 
CB §B,§ >8375 
JNE ASKP 
BL SDELAY 
B §L9 

CB §P,§>8375 
JNE L13 
B §PROGR 

LI R0,449 
BLWP §VSBW 
LI RI2,ADRES 
SBO DRD 
LDCR R7, 13 
INC R7 

LT R 12,DATEN 
STCP *R6+,8 
C §RAMEMD,R6 
JNE L15 
B §T ASK 

i_I R0,463 
BLWP §VSBW 
CLR R9 
CLR R10 
LI Ri2,ADRES 
SBÜ DRD 
LDCR R7,13 
CI R12, DATEN 
STCR R9,8 
MOVB *R6+,R10 
C R9, R10 
JEQ L17 
LI R12,ADRES 
SBZ DRD 
BL §TXTWR 
DATA 545,TEXT9,16 
B §TASK 
‘ INC R7 
C §RAMEND,R6 
JNE L16 
LI R12,ADRES 
SBZ DRD 
BL §TXTWR 
DATA 545,TEXT7,4 
B §TASK 

LI R0,454 
BLWP §VSBW 
MOV §RAMEND,R1 


LOESCHUNG 
UEBERPRUEFEN ? 

PROGRAMMENDE ? 


VERGLEICHEN ? 

ZURUECK ZUM 
ANFANG DER 
ABFRAGE ? 

PROGRAMMIEREN ? 


EPRQM-INHALT 
IN RAM LESEN 


EPROM-INHALT 
MIT RAM VER¬ 
GLEICHEN 


PRUEFEN, OB 
EPRQM GELOESCHT 


S §RAMSTA,RI 
A §EPRSTA,Ri 
MOV §EPRSTA,R2 
L.18 SETO RS 

LI RI2,ADRES 
SEO DRD 
LDCR R2,13 
LI Ri2,DATEN 
3 T CR R8,8 
INV R8 
JE© L19 
LI R12,ADRES 
SBZ DRD 
BL &TXTWR 
DATA 545,TEXT8,16 
B §TASK 
L19 INC R2 

C R1,R2 
JNE L18 
LI R12,ADRES 
SBZ DRD 
BL §TXTWR 
DATA 545,TEXT7,4 
B §TASK 


PROGR LI R0,458 EPROM 

BLWP §VSBW PROGRAMMIEREN 

LI P12,ADRES 
SBZ TIM 
SBO PGM 

L20 CLR §>8374 

BLWP §KSCAN 
CB §B,§ >8375 

JNE L21 

B §TASK 

L21 LDCR R7,13 

INC R7 

LI RI2,DATEN 
MOVB *R6+,R8 
LDCR R8,8 
LI R12,ADRES 
SBO TIM 
LI R10,TIME 
DEC R10 
JNE $-2 
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110 REM * * 
120 REM * EPROMMER * 
130 REM * POKE-LISTE * 
140 REM * * 
130 REM *<c) DR. W. JUENGST* 
160 REM * * 
170 REM * SPEICHERBELEGUNG * 
180 REM * 6802 BYTES * 
190 REM * * 


200 REM ******************** 

210 DATA 0,0,0,0,0,0,0,0,0,0 
,0,0,203,20,203,53,203,78,20 
3,231 

220 DATA 204,71,204,150,204, 
228,205,29,205,75,205,96,33, 
131,35,253,38,184,40,183 
230 DATA 41,182,42,195,96,25 
5,66,69,86,80,89,78,82,70,48 
,0,49,1,50,2 

240 DATA 5.1,3,52,4,53,5,54,6 
,55,7,56,8,57,9,65,10,66,11-, 
67, 12 

250 DATA 68,13,69,14,70,15,0 
,0,32,32,32,32,32,32,32,32,3 
2,32,32,32 

260 DATA 32,32,32,32,32,32,3 
2,32,32,32,32,69,80,82,79,77 
,45,66,117,114 

270 DATA 110,101,114,32,40,7 
4,117, 101,44,49,50,47,56,52, 

41.49.54.107.45.101 

280 DATA 112,114,111,109,63, 

32,32,40,89,47,78,41,32,32,3 

2,32,32,30,114,97 

290 DATA 109,32,115,116,97,1 

14.116.32.97.100.100.114.101 
,115,115,32,32,32,32,62 

300 DATA 114,97,109,32,108,9 

7.115.116.43.49.32.97.100.10 
0,114,101,115,115,32,32 

310 DATA 32,62,101,112,114,1 
11, 109,32, 115, 116,97, 114, U6 : 
,32,97,100,100,114,101,115 
320 DATA 115,32,32,62,82,101 
,97,100,32,70,102,63,32,80,1 
14,111,103,32,86,39 
330 DATA 102,121,32,66,97,99 
,107,32,69,120,105,116,32,32 
,32,32,111,107,97,121 
340 DATA 101,114,114,111,114 
,58,32,110,111,116,32,101,10 

9.112.116.121.101.114.114.11 
1 

350 DATA 114,58,32,110,111,1 

16,32,101,113,117,97,108,2,1 

4,64,0,6,14,22,254 

360 DATA 4,91,2,0,2,255,2,1, 


128,0,4,32,32,32,6,0,22,252, 

4,91 

370 DATA 192,59,192,123,192, 
187,4,32,32,36,4,91,194,139, 
'208,96,37, 145,4,32 

380 DATA 32,32,4,224,131,116 
,4,32,32,28,152,32,37,33,131 
,117,19,244,208,96 
390 DATA 131,117,6,160,38,24 
,4,90,2,2,37,40,5,194,4,201, 
210,82,22,2 

■400 DATA 194,219,4,91,146,65 
,22,248,5,203,4,91,194,11,2, 
5,37,22,2,4 

410 DATA 0,4,6,160,38,64,6,1 
60,38,100,38,134,221,65,2,33 
,96,0,4,32 

420 DATA 32,32,5,128,6,4,22, 
243,4,88,194,139,2,4,0,4,208 
,83,6,160 

430 DATA 38,100,38,176,5,130 

,220,210,6,4,22,248,4,195,20 

8,246,10,67,176,246 

440 DATA 221,195,208,246,10, 

67,176,214,213,195,4,90,2,22 

4,36,244,192,96,37,76 

450 DATA 2,129,32,32,22,7,2, 

1,37,76,188,96,37,32,2,129,3 

8,24,26,251 

460 DATA 6,160,38,34,6,160,3 
8,52,0,1,37,99,0,24,2,12,25, 
16,4, J ^9 

470 DATA 48,7,6,160,38,52,0, 
97,37,123,0,23,4,224,131,116 
,4,32,32,28 

480 DATA 152,32,37,38,131,11 

7,19,9,152,32,37,39,131,‘117, 

22,244,7,32,37,20 

490 DATA 208,96,37,39,16,4,4 

,224,37,20,208,96,37,38,2,0, 

0,119,2,33 

500 DATA 96,0,4,32,32,32,6,1 
60,38,52,0,183,37,240,0,4,6, 

160.38.52 

510 DATA 0,161,37,146,0,22,1 
60,2,6,160,38,124,2,3,37,22, 
193,131,2,7 

520 DATA J37,26.6,160,38,162, 
6,160,38,52,0,247,37,240,0,4 
,6,160,38,52 

530 DATA 0,225,37,168,0,22,1 
60,2,6,160,38,124,2,3,37,22, 
193,131,2,7 

540 DATA 37,28,6,160,38,162, 
6,160,38,52,1,56,37,240,0,4, 

6.160.38.52 

550 DATA 1,33,37,190,0,22, 16 
0,2,6,160,38,124,2,3,37,22,1 
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93,131,2,7 

560 DATA 37,30,6,160,38,162, 
6,160,38,52,1,161,37,212,0,2 
8,2,12,25,16 

570 DATA 30,14,30,15,30,13,2 
00,32,37,20,37,20,19,1,29,13 
,193,160,37,26 

580 DATA 193,224,37,30,4,224 
,131,116,2,0,1,190,2,1,126,0 
,4,32,32,32 

590 DATA 4,32,32,28,152,32,3 
7,33,131,117,19,250,2,0,1,19 
0,2,1,128,0 

600 DATA 4,32,32,32,6,160,38 
,52,1,193,37,76,0,23,6,160,3 
8,52,2,33 

610 DATA 37,76,0,23,2,1,157, 
0,152,32,37,40,131,117,22,2, 
4,96,40,116 

620 DATA 152,32,37,41,131,11 

7,22,2,4,96,40,230, 152,32,37 

,35,131,117,22,10 

630 DATA 2,12,25,16,4,199,48 

,7,4,224,131,124,2,224,131,2 

24,4,96,0,112 

640 DATA 152,32,37,36,131,11 

7,19,31,152,32,37,34,131,117 

,22.4,6,160,38,24 

650 DATA 4,96,38,246,152,32, 

37,37,131,117,22,184,4,96,41 

,64,2,0,1,193 

660 DATA 4,32,32,32,2,12,25, 
16,29,14,51,71,5,135,2,12,25 
,0,54,54 

670 DATA 129,160,37,28,22,24 
5,4,96,39,192,2,0,1,207,4,32 
,32,32,4,201 

680 DATA 4,202,2,12,25,16,29 
,14,51,71,2,12,25,0,54,9,210 
,182,130,137 

690 DATA 19,10,2,12,25,16,30 
,14,6,160,38,52,2,33,38,8,0, 

16.4.96 

700 DATA 39,192,5,135,129,16 
0,37,28,22,232,2,12,25,16,30 
,14,6,160,38,52 
710 DATA 2,33,37,244,0,4,4,9 
6,39,192,2,0,1,198,4,32,32,3 

2.192.96 

720 DATA 37,28,96,96,37,26,1 
60,96,37,30,192,160,37,30,7, 
8,2,12,25,16 

730 DATA 29,14,51,66,2,12,25 
,0,54,8,5,72,19,10,2,12,25,1 
6,30,14 

740 DATA 6,160,38,52,2,33,37 
,248,0,16,4,96,39,192,5,130, 
128,129,22,233 


750 DATA 2,12,25,16,30,14,6, 
160,38,52,2,33,37,244,0,4,4, 
96,39,192 

760 DATA 2,0,1,202,4,32,32,3 
2,2,12,25,16,30,13,29,15,4,2 
24,131,116 

770 DATA 4,32,32,28,152,32,3 
7,34,131,117,22,2,4,96,39,19 
2,51,71,5,135 

780 DATA 2,12,25,0,210,54,50 
,8,2,12,25,16,29,13,2,10,16, 
176,6,10 

790 DATA 22,254,30,13,129,16 
0,37,28,22,229,4,96,39,192,2 
55 

800 DATA 69,80,82,79,77,32,3 
8,204,0 

810 FÜR X=9460 TO 10634 :: R 
EAD A :: CALL LOAD(X,A)*.: NE 

XT X 

820 FÜR X=16376 TQ 16384 :: 
READ A :: CALL LOAD(X,A):: N 
EXT X 

830 CALL LOAD(8194,41,138,63 
, 248) 

840 END 


Die nächste 
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Assembler 
leicht gemacht für 
Jedermann auf dem TI 99/4A 

Das ist die dritte Folge unseres Assembler-Kurses. 
Mittlerweile habe ich auch die ersten Reaktionen auf den Inhalt. 
Leider ist das Ganze offensichtlich nicht so einfach, denn die Meinungen 
reichen von viel zu einfach, zu theoretisch, bis hin zu „setzt zuviel 
Grundkenntnisse voraus“. Einige Male wurde ich auch gebeten, 
die genaue Bedienung dieses oder jenes Assemblers genau zu erklären. 
Das aber würde doch den Platz hier sprengen, allgemein ist ja gerade 
das in den Bedienungsanleitungen recht ausführlich beschrieben. 
Ebenfalls häufig hörte ich Sätze wie: , Jetzt habe ich das Handbuch zum 
E/A-Modul gelesen, verstehe aber überhaupt nichts.“ Nun, dies sei zum 
Trost gesagt, daß es wohl Jedem, der anfängt Assembler zu lernen, 
so geht. Eine Zeitlang versteht man nur noch „Bahnhof“, 
mir ist es selber genauso gegangen. 


Eine Anregung, etwas näher auf das 
Statusregister des TMS 9900 einzu¬ 
gehen, möchte ich aber gerne auf¬ 
greifen. Zuvor aber noch etwas an¬ 
deres: Die Hilfsroutinen. Prinzipiell 
lassen sich beim TI 99/4A alle Ma¬ 
schinenprogramme auch unter al¬ 
len Modulen, mit denen dies mög¬ 
lich ist, einsetzen. Eventuell müs¬ 
sen sie in einen anderen Speicherbe¬ 
reich gelegt werden, aber das ist 
nur bei einem Assembler, der mit 
absoluter Adresse arbeitet, wichtig. 
Ein Hindernis sind aber die von den 
einzelnen Modulen zur Verfügung 
gestellten Hilfsroutinen, die mittels 
des Befehls BLWP ausgeführt wer¬ 
den. Sie,bzw. die Vektoren darauf, 
stehen bei jedem Modul woanders. 
In der Tabelle 1 sind die Adressen 
zum Vergleich. Dabei ist nur zu 
berücksichtigen, daß das XMLLNK 
des Extended-Basic anders funktio- 
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niert als bei den beiden anderen 
Modulen. 

Wollen wir also bei einem Programm 
ein Byte in das VDP-Ram schreiben, 
so ist bei einem Programm für das 
Mini-Memory zu schreiben: 

LI R0,> 0100( VDP-Adresse) 

LI R1,>3100(BYTE) 

BLWP (*>6024 

Für das Extended Basic müßte dies 
in einer Zeile geändert werden: 

BLWP (*>2020 

Für das Editor/Assembler-Modul ist 
dann noch eine andere Adresse not¬ 
wendig. Hier arbeiten wir aber bes¬ 
ser mit der REFerence. Dieses REF 
bedeutet, daß beim Laden des Ma¬ 
schinenprogramms von Diskette ei¬ 
ne REF-Tabelle nach dem Begriff, 
der in der Definition hinter REF ge¬ 
nannt wird, abgesucht und der in 
dieser Tabelle enthaltene Wert da¬ 
für im Maschinenprogramm einge- . 
setzt wird. Für das E/A-Modul 
schreiben wir also an den Programm¬ 
anfang in den Quellcode: 

REF VSBW 
und dann 

BLWPC'VSBW 

Dies hat den Vorteil, daß dieses Pro¬ 
gramm dann auch ohne Änderungen 
für das Mini-Memory verwendet 
werden kann, da auch das Mini-Me¬ 
mory über die REFerence-Tabelle 
verfügt und beim Laden des Maschi¬ 
nenprogramms von Diskette dann 
eben die fürs Mini-Mem richtigen 
Werte eingesetzt werden. Leider 
geht das nicht fürs Extended Basic. 

DAS EQUAL-BIT IM 
STATUSREGISTER _ 

Kommen wir nun zum Statusregister 
des TMS 9900, wobei gleich vorab 

60 


gesagt sei, daß sich dieses Thema 
nicht in einer Folge erläutern läßt, 
wir also immer wieder darauf zu¬ 
rückkommen werden. Der TMS 
9900 besitzt neben dem Workspace- 
counter, den wir das letzte Mal be¬ 
sprochen haben, einen Programm- 
counter, das ist ein Register, welches 
die Adresse des nächsten abzuarbei¬ 
tenden Befehls enthält, und ein 
Statusregister. Dieses wird durch das 
Ergebnis von vielen der Befehle 
beeinflußt, es werden je nach Ergeb¬ 
nis einzelne Bits gesetzt. Heute soll 
uns nur einmal das Bit 2 interessie¬ 
ren, auch als Equal-Bit bezeichnet. 
Der Name sagt es schon, dieses Bit 
wird gesetzt, wenn irgend etwas 
„Gleich“ ist. Dies gilt für alle Ver¬ 
gleiche, also C (Compare = Verglei¬ 
che). CB (Vergleiche Byte) und 
COC, CZC und TB (diese sind etwas 
komplizierter, zu diesen kommen 
wir aber später noch). Bei allen an¬ 
deren Operationen wird das Ergebnis 
0 verglichen und wenn es 0 ist, die¬ 
ses Bit ebenfalls gesetzt. 

Betrachten wir also nochmal die in 
der letzten Ausgabe beschriebene 
Schleife: 

LI R5,200 
LOOP. 

. DEC R5 
JNE LOOP 

Der Befehl DECrement erniedrigt 
jeweils den Inhalt von R5 um 1. Er¬ 
reicht dieser 0, wird das Statusbit 
für Equal gesetzt und der nachfol¬ 
gende Sprung-Befehl JNE (Jump 
not equal) unbeachtet gelassen. Dar¬ 
aus sehen wir deutlich, daß die 
folgendes 
DEC R5 
CI R5,>0000 
JNE LOOP 

zwar das gleiche Ergebnis bringt, 
aber eben einen überflüssigen Befehl 
enthält. Hier wird durch den (eben 
überflüssigen) Befehl CI (Verglei¬ 
che unmittelbar) der Inhalt von R5 
mit 0 verglichen. 


AUSGABE EINER HEX-ZAHL 
AUF DEN BILDSCHIRM _ 

Ein weiteres Beispiel soll die Darstel¬ 
lung einer hexadezimalen Zahl in 
Dezimal auf dem Bildschirm sein. 

In Maschinenprogrammen wird ja 
häufig nur mit Ganzzahlen gerech¬ 
net, meist mit einem Registerinhalt. 
Mittels folgendem Unterprogramm 
kann dies realisiert werden: 

LI R0,> 0100 (Adresse) 

LI R3,>0300 (Zahl) 
BL(*HEXD 
D10 DATA > 000A 


HEXD CLR R2 

DIV <?D10,R2 
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MOV R3,R1 
SWPB RI 
AI RI,>3000 
BLWP VSBW 

DEC RO 
MOV RO <? 

JNE HEXD 
B 

Wir finden darin einen neuen Be¬ 
fehl, DIV (divide = teilen). Bei die¬ 
sem ist zu beachten, daß für den 
Senkenoperanden 2 Register zur 
Verfügung stehen müssen, deshalb 
wird zuerst R2 auf 0 gesetzt mit 
CLR (Clear = Löschen). Dann erfolgt 
die Division durch 10. Als Ergebnis 
steht nun in R2 der Quotient und 
in R3 der Rest. Diesen Rest müssen 
wir nun als Zähl auf den Bildschirm 
darstellen. Um die Routine VSBW 
benutzen zu können, muß in RO 
die Bildschirmadresse, das wurde 
vom Hauptprogramm erledigt, und 
im höherwertigen Byte von RI das 
zu schreibende-Byte stehen. Dies 


wird durch MOV und DWPB (Swap 
Byte = tausche Byte) erledigt. Nun 
müssen wir mit AI (Unmittelbare 
Addition) noch einen lesbaren 
ASCII-Wert daraus machen. Für 
Programme, die aus dem Basic ge¬ 
startet werden, muß hier >9000 
stehen. Danach folgt die neue Bild¬ 
schirmadresse , (nächste Stelle der 
Zahl), und dann werden mit MOV 
wieder die Register für die Division * 
vorbereitet. Der Trick dabei ist, daß 
auch bei MOV das Equal-Bit des 
Statusregisters gesetzt wird, wenn 
das Ergebnis, d.h. hier der Inhalt 
von R3, Null ist. Gibt es also nichts 
mehr, durch das geteilt werden 
könnte, dann wird der nachfolgende 
Sprung nicht mehr ausgeführt und 
es erfolgt der Rücksprung mit B. 

Für Experten: 

Rassettenzugriff aus Assembler 

In einer der letzten Ausgaben hat¬ 
ten wir in der Beantwortung von 


Leserfragen angegeben, daß es ein 
Leichtes sei, aus Assembler heraus 
die Adventure-Spiele auf Diskette 
zu überspielen. Wie mehrere An¬ 
rufe und Briefe deuten, gibt es da 
aber auch bei erfahrenen Program¬ 
mierern Probleme. Es scheint auch 
so, daß hier einmal in einem Buch 
eine falsche Routine veröffentlicht 
wurde. Also, die Kassettenroutine 
ist eigentlich im Assembler-Hand¬ 
buch und im Minimem-Handbuch 
ausreichend beschrieben. Wichtig 
ist nur noch eines: Auf FAC 
(>834A) muß der Name in ASCII 
stehen, also z.B. CS1. Das kann wie 
folgt realisiert werden: 

NAME TEXTCSr 

MOV & NAME,<?FAC 
MOVB & NAME+2(?FAC 

Ansonsten braucht man sich nur 
an die Anweisungen in den genann¬ 
ten Handbüchern zu halten. 

Heiner Martin 
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***Suche für TI-99/4A*** 

RS 232 Schnittstelle für die 
Modulbox sowie einen 
EPSON-Drucker. Nehme auch 
Einzelangebote entgegen. 
Preis: VB. Peter Fouquet, 
Olberskamp 7, 2 Hamburg 74, 
Tel. 040/733 02 03 _ 

Suchen Sie bestimmte Pr. 
oder Unterhaltung? Ich schik- 
ke Listen 7274A. 

Kolbius Bresl, Auerstr. 1, 
7274 Haiterbach 

Verk. TI 99/4A + P-Box m 
32 K, RS 232 + Cass.-Rec. + 
Module: Ex-Basic, Datei- 
Verw., Schach, DM 900,—. 
Simberger 0201/71 42 12 


Minimem+Buch DM 70, Adv. 
Mod. + alle Adv. DM 100, 
Mash DM 30, Zero-Z DM 15, 
Othello DM 20. Häusler, 

T. 06257/61391 _ 

Zu verk. Drucker Seikosha 
GP 100A DMK 270 & MBI- 
Interface 150. Beide 4 
Monate alt — EILT — Tel. 
069/449180, _ 

High-Res.-Grafik + 32 Sprites 
für TI 99/4A + Minimem. 
16320 Pkte. 27 neue LINK-, 
Befehle, Kassette + Beschr. 
DM 30,- (Scheck/bar) 

Dr. M. Kausch, Semmelweis- 
str. 151, 5000 Köln 80 


Verkaufe: RAM-Erweiterung 
intern TI Centronix-Schnitt- 
stelle extern Assembler für 
CS und X-Basic. 

R. Dillmann, Kolpingstr. 18, 
A-7602 Oberkirch, 

T. 07802-1464 

Suche für meinen TI 99/4A 
das Ex. Basic-Modul. Mög¬ 
lichst mit Beschreibung 
(engl. od. deutsch). Zahle 
bis 180 DM. Zu erreichen 
ab 15 Uhr bis 16 Uhr. 

Tel. 02246/5271 _ 

Suche preisgünstig folgende 
Module für TI 99 4A: POLE¬ 
POSITION Pac Man u. TI 
Invaders. Tel. 05151/12487 


TI 99/4A + Erw.Box + 32 KB 
RAM + 2 RS 232+ Ex-Basic 
+ Minimem + Schach + 
Buchungsjournal + Datenver¬ 
waltung + Statistik + Joystick 
+ Recorderkabel + Textver¬ 
arbeitung + Spielmodule usw. 
VB 1600 sfr/DM K.P. Klein, 
untere Bahnhofstr. 16, 
CH-8580 Amriswil, 

T. 071/671068 

lAchtung! Verkaufe origi¬ 
nellen TI-Basic. Lehrgang 
14,— DM. Orig. Dynamics 
Game Darts 24,— DM. 
0221/69 72 54!!! 



Wir lassen den TI-USER nicht im Stich! 


Die neue Ti-Peripherie von ATRONIC 


• CPS 99: Das kompakte System! 
Diskontroller (90—360 KByte je 
Laufwerk) 1—2 Laufwerke einsetzbar. 
32 KByte RAM, 2 x RS 232—1 x parallel 
Schnittstelle 


* Expansion System 

Die kleinen Erweiterungen 
mit der großen Leistung 

* 32 KByte RAM 

* 32 KByte RAM + 
Centronics-Interface 

~ Centronics-Interface 


Alle RAM-Erweiterungen in hochwertiger C-M05-Technologie! 

alOnic 


Weitere Inforamtion erhalten Sie: 

bei jedem guten Tl-Händler, oder direkt von: 


Meiendorfer Weg 7 
2000 Hamburg 73 
Tel. 0 40 / 6 78 93 08-09 
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Suche günstig TiExt-.-Basic 
+ Handbuch + Ti Jox St. 
Alfred Reiger, Guerzenicher 
Str. 1, 5160 Düren-Rölsdorf 

Verk.: Joysticks, Parsec, II- 
Invaders, Rec-Kabel + Litera¬ 
tur, Tel. 06041/5285 

Graphik-Tabl. fast neu zu 
verkaufen. Su. User im Raum 
8600. Tel. 0941/16846 

Verkaufe: TI 99/4 A (200 
DM) IX-Basic (200 DM) 
Monitor (200 DM) 

Tel. 0941/85583 

Minimemory, Kpit. + 
dtsch. Handbuch VB 220 DM 
O. Wind ab 18 Uhr. 

Tel. 0531/40749 

Suche externes Disklaufwerk 
+ Kontrolle v. Angebot an 
Georg Lehr, Rottstr. 72 
6724 Dudenhofen 

Suche Spiele für 32 KB + 
Ext-Basic + Joy auf Cass. 

VB: 5-10,- DM 
Rupprecht Michael, Herrnhof 
13, 8808 Herrieden, Tel. 
09825/276 ab 14-18 h 

99/4A + Ext. Basic + 32 K 
Ext. Erw. + Centronics Printer 
Interface + Kassettenrec. 
Kabel + Kas. Rekorder + 
Joysticks + 1 x Spiele Mod. 

+ 1 x Datenverw. mod. 

590,— DM, Austermann. 

Tel. 06131-83 23 21 

Das bringt den TI zum 
Glühen. Nach den Gremlins 
und Ghostbusters nun: 

1ÜGHOST HUNT!!! 
und andere Supersoftware!! 
Auch Programme nach 
Wunsch!! 

INFO: V. Glaab, Querstr. 11, 
6451 Mainhausen 2 / Rück¬ 
porto! 


STOP IT GUY! 
Top-Software für den TI!! 
Adventures, TIPS, Arcade, 
Aktion! (TI + X) 
PIGSTRONG INDEEDÜ 
INFO: A. Sonnentag, 
Stuttgarter Str. 10, 

6054 Rodgau 3 / Rückp.! 

HIT! MIT ORIGINALVER- 
PACKUNG= ' 

TI99/4A 180,-, X-Basic 
180,—, Philips Datenrecorder 
steuerbar 160,—; TI Joysticks 
60,—; Module: Datenverwal¬ 
tung 50,—; Schach 50,—;. 
Alpiner, Parsec, Attack 40,—; 
Videogames 2 25,—; FÄHN- 
* RICH, Tel. 06071/24206 

Verkaufe Def. TI-9 94A 
(9929 DEF.) als Ersatzteil¬ 
lager; jed. Kpl. + Orig. Ex-B. 
Mod. + Dt. Handbuch + 

PRG VB 300 DM 
St. Stüber 
Am Schulpaltz 5 
2284 Hörnum 


Suche für TI 99/4A: 

* Externe 32 K-RAM-Erwei- 
terung mit Schnittstelle 

* Drucker, Plotter o.ä. 

Thomas Schulz, Kammerstr. 
206, BI/707 

4100 Duisburg 

EXT. DISKETTENSYSTEM 
(Laufwerk, Controler, Mana¬ 
germodul), ev. Demodisk. 

VB 500,- Rekorderk. 
Stefan,Schwarzer, Steinweg 4, 
3400 Göttingen 

TI 99/4A + Ext. Basic Re¬ 
corder mit Kabel Datenverw. 

+ Schach 4 Spielmod. + Joy- 
st. VB 800,- 
08461/1404 

TI 99/4A + Ext. BASIC + 
div. andere Module + Bücher 
380,- DM. 

Albrecht Hennings, Provinzial- 
str. 69, 5300 Bonn, 

Tel. 0228/25 29 83 

SUCHE: Lösung zu „Return 
to pirate’s Isle“. Habe alle 
12 Lösungen zu dem Ad- * 
venturemodul von TI. Suche 
Tauschpartner. M. Buresch, 
Am Friedhof 23, 22 Elmshorn 

TI 99/4A neu original verp. 
DM 250,—. 11 Adventure + 
Modul DM 200,- T. 040/ 
5506787 Original Texas Instr. 

Suche Tl-Sprachsynthesizer 
Preis bis 100 DM. Angebote 
bitte an: Thomas Arend, 
Merzigerstr. 204, 6638 
Dillingen (Saar), Telefon: 

06831/77805 

TI 99/4A verkaufe Console 
TI 99/4A, Ext.-Basic, Disk- 
Drive. Disk-Controller, RAM- 
Erweiterung 32K, Peripherie- 
Box, div. Progr. Preis. VB 
1800,- Kpl. H. Zindel, 
04194/7564 

Verk. original extended 
Basic für 300 DM + Hand¬ 
buch + 30 Spiele 
Michael Buresch 
Am Friedhof 23 
2200 Elmshorn 1 


Verkaufe Ti-Box und Sprach- 
Syn. Preis VS 02373/83028 
L. Winterbach 
5750 Menden 2 

Verk. TI-99/4A, Ext. Basic, 
Recorder, Kabel, 2 Joysticks, 
Bücher, Zeitschriften, Pro¬ 
gramme — DM 500; Karsten 
Wulff, Glindhof 2, 2082 
Moorrege 

„FLAK“, eines der schnell¬ 
sten Schießspiele in EXBA- 
SIC! Verhindern Sie die Luft¬ 
landung der Feinde im Hinter¬ 
land! Tolle Graphik! 

Listing 6,- DM, DISK 10,- 
DM! Adr.: Ahrens, Am 
Hinkelstein 21, 6140 Bens- 
heim, T. 06251/68236 
(TI-99/4a) 


Verk. Disassembler, zum Ein¬ 
binden in den Ti-Debug. 
Diskette für 25 DM + Porto. 
Volker Senft, Moosstr. 11, 
8300 Ergolding 

VERKAUFE ges. Anlage 50% 
billiger!!! *** (+ 25 Module). 
Liste gegen Freiumschlag. 
Tausche auch Spiele für C64. 
Thomas Neubing, Lindenstr. 
22. *** 8569 Velden ***** 

TI 99/4A Org. Mini-Mem und 
org. Ex-Basic zu verkaufen. 
Preis VHS. Tel. ab 18 Uhr. 
04503/3167 

TI-99/4A + Adv. Mod. + 
alle ADV. + Micro-Surg/ 
Othello/Zero Zap + div. 

Progr. auf K. für DM 300 
zu verk. H.G. Häusler, im 
Klingen 43, 6146 Alsbach I 
T.06257/61391 

Orig. Tl-Joysticks, nur 1 x 
benutzt, DM 35,— Tel. (089) 
938973 

Wer leiht mir Centronics 
Schnittstelle in München? 

Tel.: 089/938073 

XXDRUCKERXX 
Umständch. zu verk. EPSON 
TX 80B 125 Z/s 6 x 7 Matrix 
incl.-Anschlußkab. PIO und 
2 x Farbband kaum gebraucht 
VB 660 - T. 09407/2010 

SOUND-EDITOR (Ext. Basic) 
Drucker und Joyst. möglich. 
Fernstertechnik + Menügesteu. 
Listing + Manual =10 DM 
Kassette + Manuel = 20 DM 
Bar o. Scheck — soforte Lief 
Bei: Th. Rauer / Beetstr. 64 
4902 Bad Salzuflen 1 

TI 99/4A supergünstig + 
ext. Basic + Erw. Box + 
Laufwerk + Controler + 

32 K-Erw. zu verkaufen 
Liste auf Anfrage. Telefon 
0661/606307 

Tausche Software in Ext.- 
Basic. Liste + 80 Pf. senden 
an: Ralf Bauer, Kelterstr. 16, 
6962 Ad.-Sennfeld 

Suche günstig 32K oder Mini- 
memory-Mod. Tausche Pro¬ 
gramme 

M. Lehn, Luisenstr. 10 
3180 Wolfsburg 11 

TI-Besitzer im Raum Nürn¬ 
berg aufgepaßt suche Kon¬ 
takt u. Assemblerlistings 
Tel. 0911/523162 

Suche Ed./Assembler Tausch¬ 
partner und Kontakte! (Ue) 

— Drucke ihre Programme 

— Drucke Anschriftaufkleber 

— Anti-Listschutz 

— Disketten doppelseitig !!! 
Thorsten Ziehm, An de Au 17 
2081 Haseldorf, T. 04129/488 

Suche Psacal-Forth-Assemb- 
ler-Module für TI 99/4A je 
DM 50,-. Tel. 089/672521 


TI 99/4A + Extended Basic + 
Joystick + Rec.-Kabel + 
Basickurs + Bücher, zus. nur 
580,—. Otter K^rl-Heinz, 
Haibacher Str. 119, 8759 
Hösbach 2, Tel. 06021/69917 

HALLO TI-USERÜ! 

Tausche Programme in TI + 
X-Basic und Modu. 

Bitte RP beilegen! Liste 
bei: Stefan Krings, Hirsestr. 25 
4300 Essen 11, 

Tel. 0201/660964 

TI 99/4A: + Ext. Basic + 
Invaders + Parsec + Chis- 
holm Trail+Fefender + 

Schach + Othello + Adven¬ 
ture + Cassetten + Software 
* VB 550,- T. 60621/73656* 


Verk. Box. Corcom DS/DD 
Diskeon. 32 K, RS 232, DS/ 

DD Drive, TI 99/4 Com. 
Speechsyn. Mailist, Writer, 
Disk, Fixer, Multi Plan, 

P.A.K., Apesofl, Disk; 

Muziek, Print, Adventure 
12 K. 150 div. Spielen, 

Parsec, Vluchtsim 

Stand Alowe RS 232, 

Wycoveforth 

C. Lok Nederland Tel. 

010-323322 

Verkaufe gegen Höchstgebot 
(nicht unter DM 500) TI 99/ 

4A + Extended Basic + 32 K 
Ram-Expansion extern (neu) 

+ Recorder + alle Kabel + 

20 Leerkassetten + Bücher 
TI Spezial I u. II, Ex-Basic 
Handbuch, Spielen-Lcmen- 
Arbeiten, Data Becker Tips 
& Tricks, div. TI 99 Journale, 
TI Revues und Computer¬ 
hefte. 

Angebote an P. Parthier, 
Rosemeyerstr. 14, 

3180 Wolfsburg 28 

NEU *** NEU *** NEU 
Das alte Space-Abenteuer neu 
inszeniert: Space-Invaders 
DM 5,-. P. Augath, 

Lönsweg 2, 3257 Springe 1 

*SOLO-SOFT PRESENTS* 
WARGAMES, das Spiel für 
Leute mit Augenmaß 7,50 DM 
ROBBENRETTER, eine 
Super-Arcarde-Mischung 
DM 10,—. Peter Augath, 
Lönsweg 2, 3257 Springe 1 

Software (TI99/4A) Aus¬ 
druck Ihrer Listings (Basic/ 
Exb.): DM 5,- + Porto. Info 
geg. DM 1,—. Qubie, ähnl. 
Q-Bert auf Cass. (Exb.) 

DM 25,— Peter Rieger, 

Talstr. 64, 6750 Kaiserslautern 

Verkaufe Ass.-Prog. ,DISK- 
DUMP’: liest und druckt 
einzelnen Sektor Ihrer 
Diskette. Original Tl-Disc- 
Contr. Voraussetzung. 40,— 
DM + Porto/ Verpack. Ralf 
Madlener, Krähenweg 28, 

4132 Kamp-Lintfort. 
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Verkaufe Centronics-Schnitt- 
stelle. Preis VB 
Suche: Schaltplan Expbox 
u. Diskcontroller. 

B. Schmidt, Tel. 02721/53 95 
Fr. 18 Uhr bis So. 

TI99/4A + XBasic + Anw. 
Module + 1 Spielmodul + 

5 Bücher + gr. Programm- 
Listingsammlung - NP 
über 1000 DM — nurzus.! 
für 600 DM. 089/40 98 83 

SUCHE für TI99/4A (ge- 
braucht) Ext. Basic (100,- 
DM) und einen direkt an die 
Konsole anschließbaren Prin¬ 
ter/Drucker (150 DM) Emig 
6204 Taunusstein, Schanzen¬ 
weg 23 

Verk. TI99/4A + Exp.-Box 
+ Disk + Control + XBasic 
+ Sp.Synth. + Joysticks + 

Rek. Kabel + Rekorder + 
Spielmodule (Invader/Chess) 

+ Literatur (VB 2100,-. Tel. 
(Nur Sa, So) 09621/851 43 

Suche für TI 99/4A gute 
Finanzbuchhaltung (doppelte 
Buchf.) Martin Otterpohl, 
Marientalstr. 20, 

4400 Münster 

Verkaufe Modul „The 
Attack“ für 30,- DM oder 
tausche gegen „Zero-Zap“. 
Michael Karker.-Yorckstr. 

15, 4230 Wesel 

Suche ext. Modul und Floppy 
für TI 99A4 Preis VB. Ange¬ 
bote an 071 1/53 32 60 
abends ab 1 8 Uhr 


TI-99/4a: Tausche Super¬ 
software für Ihren TI. Besitze 
sowohl Software in EX-TI- 
Basic. Wer hat Interesse?? 
Welcher User tauscht Soft¬ 
ware für das Mini-Memory?? 
Liste an: M. Rattelmüller, 
August-Btbel Str. 11, D-6454 
Bruchköbel 1 

Verkaufe: TI-Module Adven- 
ture+ 2 Kassetten = 59,- DM 
und Tunnel of Doom = 55,- 
DM. Beide Module original 
verpackt. Meldet euch bei: ' 
M. Rattelmüller, August-'. 
Bebel Str. 11, D-6454 Bruch¬ 
köbel 1 

Verk. Ex-Basic+dt. Handb. 

160,- 

Module: The Attack 35,— 

Schachmeister 65,- 

Bücher: Spielprögr. selbst 
erst. Bd. I+II v. TI 35,— 

. Tel. 0271/33 48 67 


Suche TI Ext. Basic Modul 
und Music Maker Modul. 
Tel. 0711/72 21 86 


Suche externe 32K + Assemb¬ 
lerliteratur + -Progr. auch 
Tuasch v. Progr. möglich. 
Reinhold Frieling, Kirchspiel 
17, 4408 Dülmen-Rorup. 

Tel.: 02548/243 


TI-99/4A - Drucke Pro¬ 
gramme/Dateien in Typenrad- 
Qualität 3 Pfennig/Zeile + 

RP. Tel. 0631/461 75 


ACHTUNG!!! 

Suche für TI 99/4A das Mo¬ 
dul Speech Editor. Zahle bis 
zu 30 DM oder tausche gegen 
Othello. Alexander Stein, 
Jägerstr. 7, 5300 Bonn 1 

*** SUPERANGEBOT *** 
Verkaufe: TI-Konsole + Data- 
sette (1 Jahr) + ExBaisc 
(O. 5 J) + 70 Topprogramme 
für 450,- DM VB. Topzu¬ 
stand !!! Markus Beck, 

Tel. 06826/67 73 

TI-Software-Ex Basic Voka- 
belpr. (Engl.&Franz.) u. 
umfangr. Graphikspiel 
Schiffe vers. je 11 KB! 1 
Progr. + Cass. 1 5 DM (2 Pr. 

20 DM) G. Brueck. Kuchen- 
bergstr. 254, 6680 Neun¬ 
kirchen 


Suche billig Ext.-Basic für 
TI99/4a ca. 120,-. V. Bart¬ 
mann, Heimstr. 14,4708 
Kamen-Methler 02307/ 

39 496 _ 

Suche Ec. Ass. Handb. u. 

ADV Modul sowie Sprach. 
Synth. Biete versch. Module 
u. Disc. Rechn.-Erst. Tel. 
06588/466 

Extended Basic Modul org. 

TI mit engl. Handbuch (meu) 
zu verk. 150 DM. Tel. 04155/ 
39 86, Dieter Schmidt, 
Möllner Str. 52 b. 2059 
Büchen 


Wer verschenkt def. o. funkt. 
TI-Teile. Suche Tl-User 
zwecks Program mtausch. 

D. Pabs, 8000 München 70 
A.-Roß.-S. 104 _ 

Verkaufe für TI 99 Module: 
Munchman. Parsec je 60 DM 
und Alpiner, TI Invaders je 
40 DM. sowie Speechsynth. 
für 100 DM !!! 

Anruf bei S. Altstadt, Tel. 
07253/226 81 

The best Games for your 
TI99/4A: Romeo D. Kong, 
Crazy Kong, Scramble und 
vieles mehr in TI oder Ext. 
Billig! Info: 80 Pf. bei M+B 
Software Bahnstr. 64, 5608 
Radevormwald 

TI99/4A; Ich schreibe Li- 
stings auf Cassette. Info gegen 
0,80 Pf Porto als Briefm. bei 
M. Schenk, Am Melchiors¬ 
graben, 7100 Heilbronn 12 


Hallo Tl-User! 

Besseres TV-Bild und Ton 
gefällig? Dann Direktausgang 
Video/Audio (z.B. Cinch/ 
BNC), Einbau in HF-Modul 
32, 50 DM + R. Porto, Info 
(+R. Porto) von Wolfg. 

Durst c/o Poeße, Gitschiner- 
str. 65, 1000 Berlin 61 


Verkaufe Dragon M. Za. 

100 Prgm. + 3 Bücher, biete 
Prgm. fürTI99/A4. Info ge¬ 
gen 5 DM. Peter Thessmann 
Johannesstr. 27, 4050 M- 
Gladbach 1 

TI99/4A*Software*TI99/4a 
Xbasic, TMS9900/MCode, 
z.B.: Super-Disassembler 35,— 
Basic-Extention 20,— 

Fast-Cataloger 15,— 

DISK-Editor (mit Init!) 55,— 
Liste frei bei Simon Koppel¬ 
mann, Judenpfad 7, 5 Köln 50 

GPL-Disassembler für EIA, 

MM u. XBasic +32K. Info 
gg. Freiumschlag. Suche „Mis¬ 
sion Impossible“ u. EIA- 
Prgme. M. Eichhorn, 6240 
Königstein. Ziegelheck 1, 
06174/59 21 _ 

Tl+Ex-Basic-Programme 
zu verk. Info gegen Rück¬ 
porto. B. Knedel, Tulpengasse 
16,3171 Weyhausen. 0536 

27 1 1 87 _ 

Verkaufe Atari-Modul Pac- 
Man 60,-, suche Tl-User 
zwecks X-Basicprogramm- 
tausch, Christina Reusch, 

Tel. 0241/17 21 29 

Neuw. TI-Module günstig 
abzugeben: Datenverw. lfg. 

DM 50,- 

Buchungsjournal DM 250,- 
Suche: TI-Ext.-Basic 
Henrik Wedekind, Tel. 040/ 
644 60 58. Falkenburger 
Ring 22, 2HH 73 _ 

Suche „40 Zeichen pro Zeile“- 
Programm als POKE-Liste! 
Verk. TI-99/4A, Rec.-Kabel, 
Rec. 85 Module! Preis: VB! 
FCTN-Indikator für 4,50 ! 
Suche P.-Listen für den Ber. 
24F4-27xx! M. Rohrmoser, 
Nietzscheweg 16, 4300 Essen 

14_ : _ 

Verk. TI99/4A + ExBasic + 
Datenverw. + TI-Finanzbe- 
rater + Joyst. + Tl-Spielmo- 
dule u. -Cass. + viel Literatur 
VB 490,- DM. Tel. 02471 
44 39. Auf Wunsch mit Rec. 

+ Monitor (Aufpr.) 

TI99/4A, tippe billig eure 
Listings ein, Info g. fr. Rück¬ 
umschlag A. Seitz, Ph. Schei- 
demannstr. 7b, 6700 LU 25 

TI99/4A Suche RS232 Kar- 
te für P-Box und Tl-Writer 
Romanowski, In den Erlen 40 
4650 Gelsenkirchen 

Suche X-Basic / Forth Modul 
A. Höhner, 5202 Hennef 1, 
Röttgen 4 

32K CMOS RAM-Karte 
batteriegepuffert + Assemb¬ 
ler Software zu 290 DM 
0241/86 447 Gregor Loh¬ 
mann 

Verkauf: Seikosha GP-100 A, 
VB 400 DM 

Norman Keller, Tel. 06081/ 
74 77 


! Endlich !! Wahnsinn ! 
Super-Fahrzeugbuchhaltung 
rechnet alles aus! DM 50,— 
Disketten-Katalog: Ihre Pro¬ 
grammbibliothek in einer Da¬ 
tei! DM 50,—. T. Müller, 
Postfach 304, CH-8400 Win¬ 
terthur 

Suche TI99 User im Raum 
Wi. und Mz. zwecks Info- 
Tausch und Clubgründung 
D. Junghans, 06139/45 19 

Verkaufe TI-99/4a m. Zube¬ 
hör + EXT.-Basic (dt. Lizenz¬ 
bau) + dt. Handbuch TI 
Basic/Ext. Basic + Rec.-Ka- 
bel f. 400 DM 
V. Gehrke, Meisenstr. 11, 

7254 Hemmingen, Telefon 
07150/68 42 

TEII-Modul, 4 Wochen alt, 

DM 65,- oder Tausch gegen 
andere Software. 040 / 

56 39 36 _ 

Suche orign. TI-D.S.K. LA 
UFW (mit DISK-Contr.) in 
Umkreis Gießen bis 500,- 
Tel. 06406/21 72 

TI 99/4A PGM. Info geg. 

1,20 DM in Briefmarken 
von: Andreas Schmidt, Am 
Storchenbaum 9, 6793 Br.- 
Miesau 2 

TI99/4A mit fast allem Zube¬ 
hör!!! Verkaufe nur komplett 
VP 2.000 DM. Tel. 05341/ 

26 05 70 _ 

Suche zusgefeite Softw. für 
TI zuf. Disk. u. Cass. sowie 
Module. M. Zieske, Griesin- 
gerstr. 152, 1 Berlin 20 

Verk.: 32K-Speichererw. 
(Bausatz) ext. an TI99/4A 
Ansteckbar oder in Konsole 
einbaubar. Durch Pufferung 
bleiben Progr. erhalten! 

DM 190,—,-Tel. 07141/ 

24 259 


Suche RS232 für PBox biete 
Centronics ext. Schnittstelle. 
Bathory, 09141/35 48 ab . 
16.30 Uhr 


Suche für TI 99/4A Epson- 
Drucker RX 80 FT + bzw. 

FX 80+ zu angemessenen 
Preisen. C. Stützer, Rastatter- 
str. 48, 7500 Karlsruhe 51 

Suche gute Software für Mi¬ 
nimem! Bes. Assembler-Dis- 
assembler in Basic. Schickt 
mir Eure Listen! Kauf oder 
Tausch! Christoph Podlech, 
Dorstener Str. 439a, 4690 
Heme2_-._ 

Verkaufe TI 99/4A mit Zu¬ 
behör. Martin Schlegel, 
Schwabenstr. 1, 7940 Ried¬ 
lingen, Tel. 07371/24 38 oder 
23 17. 


Verk. für P-Box: 32K 360,— 
RS 232 330,— Doppelkopf- 
laufw. (Slcm) 420,— Tel. 
02365/427 44 nach 19 Uhr 
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Suche Diskcontroller (ex¬ 
tern) od. Box mit Disk + 
Controller + 32K+RS32 
sowie Pataphon S21d und 
Modul TE II W. Schöller, 
Charlottenstr. 10, 7000 
Stuttgart 1, Tel. 33 13 96 

Verk. Tombstone City, 

(35,—) u. Buchung(79,-) 
Super Spiele! (Cass. = 200 
DM für 40 Spiele!) Suche 
Soft- und Hardware! D. Da¬ 
niel Taxxet 37, 8045 Isma¬ 
ning, Tel. 089/96 96 96! 
Super !!! 

TI99/4A + ExBas. + Hand- 
buch + Sprach-Synth. + weit. 
Bücher ** Inter, an C. Schrö¬ 
der ** Tel. 02205/82 727 

Tausche od. verkaufe TI99/ 
4A m. vielen Modulen gegen 
Hardware für Sharp (1 500 
od. Casio FP 200 
Peter Ruth, Fischerstr. 124, 
Gelsenkirchen 

Suche Adventures (in TI- 
Basic) auf Kassette oder Mo¬ 
dul. (Grafik-Adventures be¬ 
vorzugt) Ch. Osswald, Neue 
Bahnstr. 6, 8701 Kirchheim 

Super-Grafik-Paket mit 5 
Demo(ex-B.- Platinenzeich¬ 
ner (ex-B.) Duell im All 
(Ti-B.— Moonlander (Ex-B.) 
drehen von Sprites (Ex-B.) 
Infos bei Frank. Rückum¬ 
schlag bei R. Goerke, Watz¬ 
ling 10, 8250 Dorfen 

Tausche: Munch-Man gegen 
Soccer. Briefkontakt gesucht 
Joerg Roemer, Kurze Gasse 3, 
6570 Kirn, Tel. 06752/ 

48 57 

VERKAUF: Kurvendiskus- 
sion & Bruchrechnen in Tl- 
Basic! je 10,- DM;zus. 

15,- DM an Klaus Vietzke, 
Victor-Goll.-Str. 43, 5170 
Jülich. Tel. 02461/51 660 

Verk. Module: Carwars, 
Soccer, Tombst. City, 

Schach, Attack, Alpiner. 

Tel. 0531/519 80 


Verk. Munch-Man 40 DM 

TI Invaders 30 DM 

The-Attack 20 DM 

Chrisholm 20 DM 


Tel. 02594/81 135 ab 2.00 
Uhr 

TI99/4A + ExBasic + 2TI- 
Joyst. + Cass. Rec. + Litera¬ 
tur nur zus. DM 300,— Lutz 
Westhelle Marienstr. 4 
5000 Köln 40, Tel.: 0221/ 
50 86 70 


Verk. TI 99/4A(150,- DM), 
Ext. Basic (150,— DM), Par¬ 
sec (30,- DM) altes TI 99 
Netzteil (50,— DM) Preis VB 
Suche TI-Modul u.a. Angebo¬ 
te an F. Haage, 7460 Balingen 
Frommem, Rudolfstr. 9,' 
07433/3 51 89 


Wer überläßt mir E/A Debug¬ 
ger, ROM-Listing RS 232 + 
Diskcontr. auf Kass? Angebot 
an B. Westermann, Guten- ' 
bergstr. 20, 6710 Franken¬ 
thal . 


Suche Mini Memory + dt. 
Handbuch sowie gute Spiel- 
Module; Außerdem: Wer 
kennt ein gutes Morsedeco¬ 
derprogramm für den TI 
99/4a. Wolfg. Hartleib, 

3500 Kassel, Hardenbergstr. 
16 

Zu verkaufen: TI Expansion 
System (originalverpackt) 
sowie US-Buch „Entertain¬ 
ment Games in TI-Basic and 
Extended Basic“ (mit Cas- 
sette). Abgabe gegen Gebot 
bei: Albrecht Eger, Aeule- 
str. 15, 7400 Tübingen 1 

Verk. Top TI 99/4A + Cass. 
Rec. + Rec. Kabel + GP 100A 
+ Kabel + P-Box kompl. mit 
int. Contr., Disk., 32K, RS 
232 + Tl-Joyst. + Ex-Basic 
+ Ed.Assem. + Sprachsynt. 

+ 8M od. + 10 Disk. + viel 
Literatur! VB = 3.500 DM. 

M. Sandmann, Im Brauke 5, 
4630 Bochum, Tel. 0234/ 

38 25 96 

Die Software für den TI. Da 
werden die Restl. Computer 
blaß. Infocas. 3 DM. P. Flick 
Rosenweg 33, 6057 Dietzen¬ 
bach 

Suche TI-99/4A Tauschpart¬ 
ner. Melden bei: Peter Flick, 
Rosenweg 33, 6057 Dietzen¬ 
bach, Tel. 06074/319 77 *** 

Lohnabrechnung ohne ma¬ 
nuelles rechnen 17 DM ExB. 
v. Drucker nöt. G. Ziegler, 
Ulmbachstr. 8, 6349 Grei¬ 
fenstein 


Bastler sucht Defekt- 
Hardware für TI99/4A 
Tel. 06587/1234 

Suche Hardware für den TI 
z. Erw. Sprachs. etc. Angeb. 
an P. Flick, Rosenweg 33, 
6057 Dietzenbach 1 

. Verk. TI- u. EX.-Basic Pro¬ 
gramme, pro Spiel 3 DM + 
C60 Cassette 2 DM; ab 10 
Spiele Cass. kostenlos. Liste 
gegen Rückporto. M. Kersen, 
Im Ried la, 4710 Lüding¬ 
hausen 


Verkaufe TI-Modul Return 
to Pirate’s Isle Grafikadven- 
ture 50,— DM. Manfred 
Dietel Enoch-Widman-Str. 
40, 8670 Hof/Saake, Telef. 
09281/432 71 

Ext. Basic mit dtsch. Hand¬ 
buch, Datanverw. Parsec, 
Munch-M. Te= etc. zu verk 
18-20 Uhr, Tel. 0681/ 

81 75 56 


Verk. Konsole Ext. Basic, 
Joystick. Rec. m. Kabel, . 
ext. RS232, Druck, EP22, 
Progr. Cas/div. Lit/DM 
1.300,- VB, einzeln. Pers. 
Anlieferung bis 100 km. 
Erwin Wiegel, Riehlstr. 6, 
8500 Nürnberg 20 

TI Steckmodul für 5 ROM/ 
GroMS + Spiel = DM 32,— 

+ Reset DM 38,— Interessen¬ 
ten für MO-dulplatine/RI 
Revue Nr. 5/85 bitte melden. 
Leopold Buntin, Scher- 
biusstr. 1,6000 Frankf. 90 

Suche Peri-Box, Disc. Kontr. 
+ Laufwerk, 3'2K, RS232, 
Speechsy., E.A. Modul, 
Buchhalt.M. sowie Kontakt 
I. Raum. Ostfildern/Stuttgart 
071 1-41 26 47 

Disk-Laufwerk intern Origi¬ 
nal TI, auch extern verwend. 
Bei Nachrüst. Stromvers. 

DM 250,- Verkauft: 040- 
39 09 190 

TI99/4A Atari geg. Höchst¬ 
gebot zu verk. Helwine Ho- 
yer, 4040 Neuss 1. Steuben- 
str. 15. Tel. (02101) 

41 751 


Verkaufe orig. Extended 
Basic Modul VB 200,— DM 
M. Wirthmann, Brunnenweg 
8, 8786 Rieneck 

Buchungssjournal (men) 

100 DM und Statistik (men) 
60 DM zu verkaufen. Dieter 
Schmidt, Möllner Str. 52b, 
2059 Büchen 


Verkaufe Original TI-Disk- 
controller DM 380, Original 
TI-Disklaufwerk intern für 
die Modulbox DM 350, oder 
beide zusammen DM 700, 
EXTENDED-Basic-Modul mit 
Dt. Handbuch DM 150, Nor¬ 
bert Röser, Goethestr. 31, 
8750 Aschaffenburg 

Ausdruck Ihrer Listings: 

0,60 DM p. page + Porto! 

Info geg. 1 DM: C. Laschka, 
Nordstr. 1, 8011 Eglharting 

Exbasic II + Painter + Hard- 
cop. TI-40CH-Buch, Spiel- 
progr. Selbst erst., 21 List. 
Programme 06638/1503 

Verkaufe wegen geplantem 
Systemwechsel orig. TI-Dis- 
ketten Rechnungsstellung, 1 
Lagerverwaltung je 65 DM, 
Versandliste 70 DM. Tel. 
06747/67 34 

Suche dringend ext.-Basic 
Modul. V. Bartmann, 4708 
Kamen-Methler, Heimstr. 14 
Tel. 02307/394 96 


TI99/4A + Basic + 4 Mod. 

+ Kas.Rec. mit Kabel + Joy¬ 
sticks + Bücher + Software z. 
Verkaufen. 

Tel. 021 1/25 25 29 


Suche Gleichgesinnte zur 
.Gründung eines Tl-Clubs im 
Raume MG oder Umgebung! 
Interessenten melden bei: 
Heinz-Josef Eckers, Her- 
mann-Hesse-Str. 7, 4050 
Mönchengladbach 1 

Wer tauscht mit mir DGMS 
in ext. B. auf DSK 
Verkaufe: Invader Modul 
DM 30,- 

Tel. 06106/74 182 

Verkaufe Editor-Assembler- 
Handbuch VB 40 DM (evtl, 
mit Software) 

R. Offerhaus, Lessingstr. 1, 
5810 Witten, Tel. 02302/ 

55 351 

Suche gute Maschinensoft¬ 
ware aus allen Bereichen. 

TI-RECHNER-Menuegesteu- 
ertes Programm mit 14 Re¬ 
chenarten incl. Cass.+Porto 
nur DM 10,- öS 80,- in Um¬ 
schlag an: D. Karbach, Rem- 
scheider Str. 18, 

5650 Solingen 

Tl+ext. Drucke Ihre Listings 
— egal wie lang. Sonderpeis: 
DM 10,-, öS 80,- einfach 
mit Casse4te in Umschi, an 
Dieter Karbach, Remschei- 
der Str. 18, 5650 Solingen 1 

TI-Ext. Dateien für jeden Be¬ 
darf. Diskdatei, Videodatei 
—Schallpl.-Date, Buchdatei, 
Kundendatei, Programm nur 
auf Disk. DM 20,- öS 150,- 
in Umschlag an: Dieter Kar¬ 
bach, Remscheiderstr. 18, 
5650 Solingen 1 


Verk. TI99/A4 + Cass-rec. + 
Softw. (5 Cass.) + Joyst. + 
Tombst. City 350,— Ext. 

Basic 200,- RS232 220,- 
Sprach-Syrith. 150,— 
Datenterminal Hazeltine 2000 
(zum Anschi, an RS232) 
350,-. Tel. 07623/63314 

TI 99/4A - EXT-Achtung, 
nur für Erwachsene. Bitte 
Alter angeben. Top-Sound/ 
Grafik incl. Porto + Info- 
Progr. nur DM 10,—, öS 80,— 
in Umschlag an: Torsten 
Karbach, Remscheider Str. 18, 
5650 Solingen 1 

TI-Module zu verk. z.B. Car 
Wars Munch Man Parsec uv.m. 
je 35,— DM. Patrick Ahmann 
RE, Tel. 02361/33945 

10 neuwert. Wabash 5 
1/4 Disk. 35,— DM + orig, 
verpacktes Parsec M. 35,— 

DM + MBI 150,- DM + 
Disklochstanzer 06976 6002 

Tausche 1 Munich Mann 
1 The Storr-Maschin 
1 Amazing-Modul gegen 
Tl-Schachmodul. Alle Module 
sind neu!!! Klaus-Dieter 
Ackermann, 2125 Salzhausen, 
Postfach 1216 
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TI-Karten, Z80A, 80 Zei¬ 
chen, 128 K. 02,624/3817 

TI 99/4A suche Kollegen¬ 
kontakt zwecks Vergleich 
oder Tausch von Software 
für ZA-Insellösungen. - 
Dr. Oehlke, Neues Land 5B, 
3100 Celle, 05141-82751 


Suche externen Disk-Kon¬ 
troller (PHP1800) - Tel. 
07821/7570 

Verk. TI 99/4A P-Box 
DSK + Contr. + 32 Kram + 
RSZ 32 + E/Ass + Mimem 
+ Exbasspsynth + div Module. 
II. Henneke, Ontariostr. 9, 

7 Stuttgart 61, 

T.0711/425795 

Verkaufe wegen System¬ 
wechsel 50 Supertrop- 
programme wie z.B. Flugsim., 
Q-Bert, Adventures (!), 
Seramble und viele mehr; 
für nur 49 DM; ca.70 % 

ExB Rest TiBÜ ' 

Tel.: 02541/4153 bei 
Michael Sommer 

TI 99/4A + ExB + orig. Re¬ 
corder + Rec.-Kabel + 

9 Module z.B. Schach + 2 
Bücher z.B. Data Becker + 

150 Top Games (Flugsim., 
Adventures, Sport) + 30 
Listings. NP. ca. 1800 DM; 
VHB bei 700-750 DM. 

Tel. 02541/4153 M. Sommer 

Hallo Tl-User! Wer hat Lust 
mit mir Daten zu tauschen 
per Akkustikkoppler? 

Tel. 07042/77629 

Tausche Miner 204 9er 
gegen Adventure Modul 
mit Mind. 2 Kassetten dazu. 
Info bei Manfred D. 
Plecherstr. 24, 8564 Velden 

Tausche: 32K-Erw. + Centr. 
Schn. Extern — gegen Intern 
f. P. Box. T. 08091/2777 

Bin am Kontakt m. andr. Tl- 
Usern im R. Ga-Pa. WM od. 

R. Oberbay. inter. zw. 
Erfahrungs- u. Programmaust. 
08841/40346 o. 811 Murnau, 
Sollerstr. 24; R. Kirchmayer 

Verkaufe für Box Doppel- 
slimlinelaufwerke mit Einbau 
40 oder 80 Spuren, 02624/ 
3817 


Suche günstig Drucker für 
TI99/4A P. Schaefer 
02628/3039 

Verkaufe: TI 99, Exb., Ed 
T-Ass, Contr. m. 2 Laufw., 
Spech-Synth., Eigenbau¬ 
box M. 2 x RS 232, Centr., 
32 K, Eprom-B. 06408/ 
7328 _ 

TI 99/4A — User sucht 
DFÜ-Kontakte im RKUM 
Düsseldorf — auch Mail 
Boxen. Tel. 021 1/773557 
Zeit: 19-22 Uhr 


Nach Kauf von erw. Box 
günstig abzugeben MBI 
Interface „RS 232“ Lothar 
Best. Tel. 06045-1279 

* * * Super-Mo dul-V erkauf* * * 
Schach 45 DM — Amazing 
30 DM The Story Machine 
30 DM. Allednkl. Porto u. 
Verp.ü Tel. 0911/402527 
18-20 Uhr 


Sensation: Buch „Musik mit 
dem TI 99“ statt 48 nur 
24 DM. Original Basic-Lehr- 
gang von TI statt 49 nur 
18 DM (Cass.). Pat. Schmitz; 
Zehnthof 4; 5480 Remagen 4 

Verkaufe: TI/99/4A + Mo¬ 
dule: DatV erw uAnal., 
Statistik, Othello, Min. 
Mission, Alien Addition + 
Basic Kurs + Jovst. (TI) + 
Rek. kabe 1. Alles neu¬ 
wertig u. in orig. Tl-Ver- 
packung + Lit. = 400,- 
A. Kettenis Engelstr. 56, 

5500 Trier 

Verkaufe TI/99/4A Ex- 
Basic + Software + Bücher 
+ Handbuch + Rec-Kabcl + 
Cassetten VB: 02845 / 

58707 ab 15 Uhr 

Verkaufe TI 99 x Basic 
Edit-Ass forth Logo 
32K Schnittselle P-Box 
ca. 200 Progr. + Literatur 
+ Disklaufw. 

Göbel Wiesenstr. 18 
2887 Elsfleth 
Tel. 04485-936 

Programme in Ti Basic 
zu verkaufen. Preisliste geg. 
Rückumschlag an 
C. Paul, am Baldhof 15, 

4040 Neuss 

Verk. TI99/4A + Konsole 
+ 2 Joyst. + Rec. kabelt 
Buch + Spieletv. Basic für 
450 DM. Tel. 0203/772247, 
41 Duisburg 1 

Verk. Pbox m. DSK u. 

Contr. 700 DM, 32 K 200 
DM, RS232, 300 DM, X- 
Basic 150 DM, EA 100 DM, 
Fürth 75 DM, T. 0711/683842 

Verkaufe: Minimem für 
DM 200,—, Einführung 
Minimem u. Assembler 
TMS 9900 DM 35,- 
I. Scheytt, T. 07159/6742 

GPL-Disassembler in TI- 
Forth. Diskette für DM 50,— 
RHH. Prihanowski, 
Wachpoststr. 109 
5914 AE Venlo, Holland 

Verkaufe originalverpackt: 

TI 99/4A-Konsole mit TI- 
Recorderkabel für 265 DM. 
Dynamics-J oystick-Adapter: 
20,— DM. Module: Parsec: 
45,—; Munch-Man: 45,—. 

Alles zusammen: 350,— DM. 
Tel. 02473/7320; Andreas 
Braun 


Verk. Tiggi 4A + Recorder + 
Kabel + Basic-Lehrg., Oldies 
but Goodies 1+2, ca. 30 
Spiele, YAHTZEE, OTHEL¬ 
LO, ZERO ZAP, CONNECT 
FOUR, DATENVERW. u. 
ANALYSE + viel Literatur 
VB 500-600 DM. 

Gerd Decker, Im Erdwinkel 53 
8500 Nürnberg 50 
0911/863062 

TI 99/4A — kompl. System 
Exp. Box m. Disk, 32 K, 

Pio. Literatur u. Software 
z.B. E/A, Forth 2000,- 
02324/21434 _ 

Verk. TI-99/4A + Peri-Box 
+ RS 232 + Disk-Contr. 

+ Laufwerk + versch. Module, 
Kassetten, Bücher. Mark 
Schelling, CH-8585 Mailwil 
072/48 1 7 41 

Suche Basic-Lernkurs für 
TI 99/4A Kapitel 5: 
Programmierung 2 von der 
Fa Vobis. T. 0731/38 21 59 
abends ab 19.00 Uhr 

TI99 / 4A + Kabel + Ex- 
Basic + Minimem + viel 
Literatur, Programme, Jovs 
Tics, 650 DM. Tel. 02323/ 
26393, ab 20 Uhr 

Verkaufe o. tausche Tombo- 
stonc (29), Buchungs¬ 
journal (79), Alpiner (49) 
gegen Adventure-Modul! 

D. Daniel. Suche S.W. 

Tel. 089/969696!! _ 

Verkaufe Soft- und Hardware 
Drucke Ihre Listings (Cas. u. 
Disk.) auch von Assembler 
Information gegen Porto 
Günter Stahl, Pf. 2601 67 
4100 Duisburg 26, T. 0203/ 
726922 ab 17 Uhr _ 

Verkaufe: 3 Module: Moon 
Patrol, Bergetmeparsec— 

190 DM. Oliver Siffrin, 

Tel. 06821/7522 _ 

Verkaufe TI 99/4A Ex- . 

Basic Parsec 2 Joysticks 
u Adapter CASS-KABEL 
Bücher u. Spiele u. Zeit¬ 
schriften. Pr = VB 
05361/74476 

Suche für TI99/4A Dis- 
kettenlaufwerk + Extended 
Basic (Original) + Rec. Kabel 
Tel. 089/79 40 94 _ 

Verkaufe X-Basic mit Hand¬ 
buch zu 150 DM. Biete Text¬ 
verarbeitung und Börsen- 
Programm zu je 20 DM. 

Dirk Biehl, Hyazinthenweg 15 
6680 Neunkirchen 

Achtung — Suche Speicherer 
w. für Einbau in Tigg-Konsole 
ca. 16 KB F. Haas Georg, 
Odemerstr. 7a, 8902 Neusäss 

Verkaufe: Multiplan-Origi¬ 
nalverpackung Preis: 250 DM 
(incl. Vers.) Krantz Ch. 

Tel. 398634, L-8366 Hagen 


Verk. TI-99, Controller, 
Module, Joyst. Bücher etc. 
Preis 700,—Jürg Brönni- 
mann, Ausmattstr. 5, 

CH-4132 Muttenz 

Suche TI 99/4A Modulsoft¬ 
ware W. Schaedel 
Am Richterhof 7 
4795 Delbrueck 

Suche def. Computer + 

Zub. Zahle Bastlerpreise 
(besser als nichts!). 

Tel. 07246/403, T. Füner 

Verkaufe: TI 99/4A + 

P-Box + Kontroller + Disk- 
Laufwerk + RS 232 Karte 
+ 32 K-Karte + Teil - Mod. 

II. Hoffmann, 

0702246542 

Suche dringend!! E/A- 
Modul im Tausch gegen div. 
Spiclmodule (Munchman, 
Tcmbstone u.a.) 

Tel. 02241/33 67 39 Mine 

TI99/4A umfangreich aus¬ 
gebaut — spottbillig 
abzugeben. Systempreis: 

DM 1500. Preisliste gegen 
Rückp. J. Weiß, Francke- 
str. 1 4, 3380 Goslar 

Verkaufe IDA-Assembler- 
kurs ASEM-4 für TI+XBas+ 
32K+Floppy, komplett mit 
Büchern + Diskette, neu¬ 
wertig, DM 60,— 

Heinrich Acker, 0741/44611 

Drucke ihre Listings! 6,— DM 
pro Druck! Entferne List. 
Schutz! 3,— DM! Wir bieten 
noch mehr!!! Info 50 Pfg. 
Cassette + Bargeld an: TI- 
Club, Matthias ORF, Birken- 
Allee 34, D-3507 Baunatal 1! 
Tel. 0561/497990. Es lohnt!! 


TI 99/4A + Kab. u. Recorder 
+.2 x Joyst. + Parsec + Fl. Sy. 
pr. + div. Spiele + umfangr. 
Literatur kompl. 280,— 

Krieg 0202/468409 Wt. 

TI 99/4A Stuttgart/Remstal 
Verkaufe TI99 + Sprachmo- 
dul + Parsec + sonst. Module 
+ Spiele auf Kassette + Joy¬ 
sticks + Adventures + Data- 
Recorder 

Paul Berner, Lehenstr. 6, 
7057 Leutenbach 
T. 07195-4488 
Preise Verhandlungssache 

Suche TI-WRITER mit 
deutscher Anleitung. Ange¬ 
bote: Tel. 09561/62324 
Bräutigam 

Ex-Basic (Orig. TI) DM 150 
Drucker Seikos HA 6P100 A 
m. kl. Mängeln DM 200 
Tel. 02136/38423 

Ver. TI 99/4A + Ext/Basic 
+ Kassettenrecorder + 
Rec/Kabel+Joystick+1 Mo¬ 
dul/Parsec + CA: 100 Pro¬ 
gramme - für 400,— DM 
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Verk. TI 99/4A + Ext. Basic 
+ Recorder + Rec. Kabel + 
Othellomodul + 3 Bücher + 

2 Joys. VB 700 DM. Stefan 
Schüttler, Tel. 02372/1 

TI 99/4A, Joyst., Rec.-Ka- 
bel, Ext. Basic, div. Literatur, 
Spielmod. u. Cass. kompl. 

VB 480 DM, Tel. (06441) 

525 56 

DRUCKE IHRE Ext./Basic- 
Programme für DM 6 (incl. 
Porto) Kass. an P. Augoth, 
Lönsweg 2, 3257 Springe 1 

Verk. TI-Modul „Schach“ 

80 DM. Suche (tausche und 
verkaufe) Software in TI-Ex. 
Basic. Manuel Schreiner ** 
06103/81815 _ 

TI 99/4A + Ex-Basic + Box 
+ Disk + 32K + div. Module 
+ Literatur. Kpl. 1900 VB — 
Wolfgang Schmidt Tel. 
02371/4 54 46 _ 

Achtung! Superprogramme in 
B. + Exb. (Hochauflösende 
Grafik) Info 1 DM bei T. 
Czempinski, Zellebreit 64, 
8091 Ramberg 

Neue Anwendersoftw.! . 
Text/Datenv./Calc. Gratis¬ 
info Kaltenbrunner N. J- 
Bacher-Gasse 8 A-3500 
Krems 

TI99/4A Konsole leicht de¬ 
fekt zu verkaufen + Zube¬ 
hör. R. Warnecke, Müncerstr. 
8, 3250 Hameln 11 

Verk. RS232 für P-Box VB 
250,- Orig. TI B. Jenensch, 
Theo.-Heuss 7, 7142 Marbach 
Tel. 07144/52 27 nach 18 
Uhr 

Verk. TI 99/4A + Box mit 
Laufwerk + Ext. Basic + 

Rec. Kabel + Joyst. + Div. 
Literatur + Schach + Sta¬ 
tistik + Div. Progr. VB 
DM 1.300,—, nur kompl. 

Tel. 05136/846 40 

Verk. TI 99/4A + Joysticks + 
Monitor (TV) + Software** 
Preis: 280,— DM** Christian 
Grossmann, Kruzstr. 18, 

7317 Wendlingen 

Suche: 32K-Ext. durchgef. 
Bus + Centron, CBM 64/ 

128 + Floppy, Spitzen-Biorh.- 
u. Astrolog. Prog. mit Hard¬ 
copy, Druckerbuffer f. GP 
550, etc. — BIETE: Tl-Centr. 
In+f., MBI: 150,-DM 
Meschkat, Sandweg 10, 3500 
Kassel, Tel. 0561/880100 
abends 

Verk.: TI 99/4A, Ex-Basic, 
Box, 32K-Ram, RS 232, 
Dsik.-Contr. 1 Laufwerk. 
Daten v. Textv. Literatur. 

VB 2800, 0231/87 15 81 

Verk. Seikosha GP50 m. 
Schnittstelle für 994A + Ka¬ 
bel 500,- Tel.: 02101/ 

46 49 68 bei Weiczorek 


Verkaufe Funktionsplot in 
Assembler (Unterprogramm) 
Inc. Cassette u. Beschreibung 
für 15,- Schein an R. Gawri- 
kow, Sommerhausen 15, 

5203 Much 

. TI99/4A 
Hallo TI-Freaks 
- nicht Verkaufen — 
Ausbauen heißt die Devise: 
32KRAM-Speichererwei- 
terung Info: M. Ayasse, 
Schöckengasse 5, 7253 Ren¬ 
ningen 2 

Suche orig. TI X-Basic o. 
Anleitung. Tel. 0201/77 21 41 
K. Wolters 


TI 99/4 A + Lehrg. + 100 
Progr. 299 DM / 16 Module 
ab 15 DM / Tl-Cass. 15 DM 
14 Tl-Bücher ab 10DM/ 
TI+Ex. Progr. auch Tausch/ 
Info 1 DM bei Ralf Schmitz, 
Am Telegraf 14. 5068 Oden¬ 
thal 3 

Verk. TI99/4A + ExBasic + 
Recorder mit Kabel, div. 
Literatur DM 500,- VB 
E. Grütters, Entengasse 19 
85 Nürnberg, 091 1-22 23 71 

Verkaufe neuw. Extended 
Basic Modul wegen System¬ 
wechsel für 190 DM!!! 

Dirk Jakobi, Gropperweg 1, 
5790 Brilon, Tel. 02961/ 

12 79 _ 

List Soft Sucht Mitglieder 
Cubzeitschrift anfordern 
Programtausch für TI 99/4A 
und VC-20. Michael Eckert, 
Zobelsretherstr. 30, 8670 
Hof (Saale) 


Hallo, Tl-Spieleprogrammie- 
rer! Der SUPER TRICKKA¬ 
TALOG! Damit auch ihr pro¬ 
fessionelle Spiele schreiben 
könnt. INFO (80 Pf.) M. 
Schneller, Karwendelweg 6, 
8901-Kissing 

Verkaufe: TI Tastensatz neu 
(unbenutzt) original für TI 
99/4A (steckbar) für DM 30,- 
Tel. 04321/734 50 


Verkaufe: „Schulmodule“ 
Drachenaufgaben +/— (20), 
Drachenaufgaben x/+(20), . 
Malnehmen (20), Teilen (20), 
Addition (20) 

Tel. 04321/734 50 _ 

Verkaufe: „Spielemodule“ 
Munchman (30), Fußball 
(25), Car Wars (25), Alpiner 
(25), Blasto (25), Music 
Maker (40), Video Spiele 
I (30) und Connect Four 
(30). Tel. 04321/734 50 

Verkaufe: „Daten'verwal- 
tung“ Modul-Set komplett 
(3 Module) 

1. Statistik (deutsch) 

2. Datenverwaltung und 
Analyse 

3. Text u. Dateiverwaltung 
alle zusammen für DM 150,- 
Tel.: 04321/734 50 


Suche: Schreibmaschine 
Olivetti Praxis 40 mit Parallel¬ 
interface oder ähnliche 
Schreibmaschinen. 

Tel. 04321/734 50 _ 

Suche TM 990/189 Platine. 

D. Niekammer, Holstenstr. 

18, 2359 Schmalfeld, Tel. 
04191/58 06 


Verkaufe Akustikkoppler 
AS-A 2480 inkl. Software u. 
Mailboxliste. Speziell für 
VC20, C64, Plus4 u. CI28. 
Michael Drexhage, In-Der- 
Aue 5, 2957 Westoverle- 
dingen 

(noch 5 Monate Garantie) 


Exbasic II m. Hardcop u. 
Painter, div. Module, versch. 
Bücher usw. Alles Original, 
günstig. Tel. 06638/15 03 
ab 16 Uhr 


Bücher für den Texas. Tel. 
06638/15 03 ab 16 Uhr 

Verk. Original TI 99/4A 
Expansions Box + Karte 
neuwertig VB 250 DM 
M. Lichtenberg, Peterstr. 

26, 4250 Bottruop 1, Tel. 
02041/22 661 

An alle 99er Freaks in oder 
um Gladbeck, schreibt an 
Thomas Fliß, August-Brust- 
Str. 26, 4390 Gladbeck, 
frankierten Rückumschlag 
beilegen!!! 

Club! Club! Club! Club! 

Tausche Software in TI u. 

Ext. Basic bei: Peter Rueggen 
Schwalbenstr. 73, 2000 
Hamburg 60 

Verk. Module: Alien Add., 
Meteor Multi. Minus Miss. 

(je 10 DM) Dateiverwaltung 
40 DM M. Pochner, Brunhild- 
str. 31, 5300 Bonn 2 

Suche Einsteigshilfen für 
EIA Paket sowie günstiges Zu¬ 
behör und Assembler-Routi¬ 
nen sowie Bücher. Roland 
Kurz, Arminiusstr. 16, 

8500 Nürnberg 1 

Suche Adventure Modul und 
alle auf Kassette erhältlichen 
Adventures. Suche außerdem 
das Buch 99 Special II. An¬ 
gebote an: Selim Özdoga, 
Wuppertalerstr. 26, 5 Köln 80 

TI 99/4 A + Peribox +32K 
+ Ex.B + Dat. Verarb. + TI- 
Writer + Minimem + Cas.Rec. 
+ Joyst. Auch einzeln. Pr. 
VHS. Tel. 05245/13 05 

TI-Modul Hallenfußball u. 
Original TI-Joyst.: billig zu 
verk. W. Götz, Schlangen¬ 
weg 27, 7 Stgt. 31. 0711/ 

86 40 53 _ 

Original TI Leermodul mit 
Platine zum selbst-bestücken! 
10,— DM + Porto. L. Buntin 
Scherbiusstr. 1, 6000 Frank¬ 
furt/M. 90 


TI99/4A + Extended B. + 
Joysticks +100 Progr. + 
Drucker + Centr. Inf. VB 
550,-. Tel. (04102) 58 472 
auch einzeln 

TI99/4A + Ex.'Basic + Re¬ 
corder + Editor/Assembler 
+ Bücher + Cassetten + Joy¬ 
stick + Kabel zu verkaufen 
DM 760,- einzeln anfragen: 
Tel. 02241/33 33 03 


Bin im Gefängnis und pro¬ 
grammiere hier. Suche nun 
auf diesem Weg nette Men¬ 
schen, die mir Tl-Peripherie 
schenken würden (z.B. Ex- 
Basic) Suche auch Software! 
Jens Schiffhauer, Tündersche 
Str. 50 (JVA/Hs5), 

3250 Hameln 
Dank Euch 


Suche Tl-Module Al-Piner + 
Schach. Verkaufe Chish. 

Trail auch Tausch mögl. 

Suche Hilfe für Retto Pirates 
Isle. Michael Kreher, Tel. 
06055/46 84 

Wer tauscht mit mir Software 
in TI+Ex. List senden an: 
Andreas Hoyer, Tulpenweg 7, 
6052 Mühlheim 

SUCHE 1. Literatur über Pro¬ 
grammierung in TMS 9900- 
Assemblercode und nötige 
Software z. Schreiben v. 
Assemb. 2. ext. 32K-RAM- 
Erw. Angebote an V. Gehrke, 
Meisenstr. 11, 

7253 Hemmingen 

Extended-Basic-Erweiterung 
(XB+32K+DSK erf.) über 50 
neue Befehle in Assembler; 
von Sortierprogrammen über 
Softwareuhr bis REN EW 
jetzt nur 58,-. Info gegen 
Freiumschlag bei Thomas 
Graf, Kleeburger Weg 14, 
5500 Trier _ 

Suche Tl-Club in Essen! 

Bitte melden. Tel. 0201/ 

32 38 45 

Suche leihweise geg. Bez. 
Zange um Indexloecher zu 
machen. 

Tel. 0211/50 86 79 38 von 
7-15 Uhr 


TI 99/4A-Konsole + Rec.ha 
beit + TI Joystick + Spielmo- 
dule z.vk. VB 300,-. TI99/ 
4A-Softwareü! Tel. 02241/ 
33 67 39, Mike Heuser 

Verk. RS 232C VB 300,- 
DM. Tel. 02571 24 11 


TI99/4A erstelle Drucker- 
listing v. Ihren Programmen 
in TI- u. Ext. Basic. Je 
Pgm.-Zeile 4 Pf + 2,50 DM 
Kass. m. Scheck an D. Tho- 
mae, Teutoburgerstr. 228, 
4200 Oberhausen 12 

Extended Basic für TI gegen 
Angebot zu kaufen gesucht. 
Tel. 02101/242 89 
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BÖRSE 


Achtung: Su. möglichst bilig 
Ext. Basci Rec. und Rec.- 
kabel. Angebot an Wolfgang 
Geble, Am Geheugraben 50, 
68 Mannheim 81, 

T. 0621/871854 ab 19 Uhr 

Profi-Anwenderprogramme: 
Textv., Datei, Mathe, finanz. 
Börsenübers., Synthesizer u. 
A. brandneu: THE • MASK • 
OF -TERROR (3 teilig. 
graf. adv. in dt.) / Action 
Games. Info geg. 80 Pf. 

L. Hambach jun., Regensb.- 
Str. 236, 8500 Nürnberg 30 
ACHTUNG! Verkaufe Modul 
Datenverwaltung & Analyse 
(neu!!!) für 60,- beiGawri- 
kow Sommerhausen 1 5 - 
5203 Much - 02245/3983 

Verkaufe Minimerory mit 
2 dt. Handb. (250),TI-Inv 
(30), Munchman (20), Tl- 
Joyst. (40), 3 Rdv. Cass. 

(50). Suche ext. PIO od. 
RS232 (bidir) u. ext. DSK 
(SS/SD). T. (ab 19 Uhr) 
0221/481053 


TI 99 4A komplettes System: 
Box, Disk, 32 K, RS, Speech, 
Drucker, XB, E/A, MM. 

TE II und vieles mehr! 
Software+Bücher satt! 

VB 2800,-. 09321-4636 


Umschlag von: K. Wyrobek, 
Postfach 177, 4018 Langen¬ 
feld 1. Antwortgarantie 

Homecomputer TI 99/4A 
Peribox, Speichererw. 32 KB, 
2. Diskettenlaufwerk. Matrix¬ 
drucker Seikosha GP 100 A, 
Module Microsoft Multiplan, 
Tl-Writer, Personal Record 
Keeping, Statistics, Editor 
Assembler sowie zahlreiche 
Fachliteratur günstig für 1/3 
des Neupreises (6000 DM) 
geschlossen abzugeben. 
Näheres Tel. 02994/393 


Verk. T199/4A+P-Box + 
Discontr+Laufw+32K+RS232 
+SPSYN+ 17MOD z.B. E/A- 
Modul, X-Basic. Writer 
Buchungsj./U.A. + Org. 
Assembl. Software Paket+ 

Ca. 60 Disk. 2 Gr. Disk. 

Boxen + Lit. 5 Bücher+ 
v. TI-Magazin + Joyst. u.v.m. 
kompl. 2900.- DM. 

T. 06181/23399 ab 20 Uhr 


Software (TI99/4A) Aus¬ 
druck Ihrer Listings (Basic/ 
Exb.): DM 5 - + Porto. 

Info geg. DM 10,— Qubie, 
ähnl. Q-Bert auf Cass. (Exb.) 
DM 25,— Peter Rieger, 
Talstr.64. 6750 Kaiserslautern 


Multiplan neuwertig 300 DM, 
TEII 110 DM, 32 K Int. 

320 DM, Modulexp. 1 10 DM, 
Buchungsj. + D. Handbuch 
80 DM. Tel. 089/811 99 60 

Suche Textprogramm für 
TI-99/A4 mit Ext-Basic, 

RS 232 und Brother EP-22. 
Angebote bitte an: P. Rück, 
Rainstr. 19, 7850 Lörrach 

Epson ser. Interface orig. 

DM 70,- für Rx80. Neu¬ 
wertig abzugeben. 

Tel. 02332-10744 

Verk. TI 99/4A, Rekorde rk., 
Joysticks. Munchman, Hustle, 
TI-Buchu. m. TI-Revue f. 
125,- DM. ROEPKE, 
Johowweg 6. 4270 Dorsten 1 

Verk. TI99/4A+P-Box+Disk- 
contr.+Laufw+32K+RS232+ 
Module z.B. E/A-Modul, 
X-Basic, Schach. Datenverw. 
u.a. Module+Org. assembl. 
Software Paket + ca. 50 Disk. 
+ gr. Disk. Box + Lit. Bücher 
+ Joyst. u.w. Zubehör. 

2500,- DM.T. 06181/259447 
Ab 21:15 __ 

Verkaufe: TI 99/4A + Ex- 
Basic +TI-Joystics + 32 K- 
CMOS-Ramkarte+Rec. Kabel 
+deut. Ex-Basicanleitung. 
Preis: VS Tel 02871/6638 


Suche für TI-99 /4A original 
RS232 Schnittstelle (intern) 
und guten Drucker. Angebote 
bitte an: Ralf M. Schmitz, 

Am Telegraf 14, 5068 Oden- 
thal-3, T. 02174/40654 

TI99/4A Text. B. + Rec. + 
Joy. + Kabel + ca. 50 Spiele 
+ Kniffei Modul; VB 600 DM; 
0211/638608; ab 18.30Uhr. 
Pacharzina 

TI99/4A+Box+32K+Disk 
+RS232+XB+div. Module 
+ XB-Lehrg. + ID-Data + 
Lagerv. + Versandliste + 
div. andere. VB 1500 Fr. 


T199/4A + orig. Recorder + 
RS232 ext. (2 Ports) + 
Brother Drucker EP 22 + 
Joyst. + X-Basic + Module 
Daleiverw./Fußball + div. 
Literatur (neu über 250,— ) 
+ viel Programme auf Cass. 
kompl. für DM 980,-; 
Brother EP 20 150.- DM. 
Tel. 0421-534176. Radlow 


Suche die Assemblersoftware 
für den Mini-Assembler von 
Radix (Kassette). T. Hammer- 
mair, Hochfellnstr. 36, 

8017 Ebersberg 


NEUE PRODUKTE FÜR TI-99/4A 


Extended Basic 

mit deutschem Handbuch 

DM 

199,90 

Extended Basic II Plus 

= Extended Basic + Grafic Extended Basic (Apesoft) in 1 Modul 

mit deutschem Handbuch 

DM 

299,- 

Umbauaktion 

wir machen aus Ihrem Extended Basic (Mechatronic ein Extended Basic 11 Plus 

mit deutschem Handbuch für 

DM 

98- 

Umtauschaktion 

Bei Bestellung eines Extended Basic II Plus vergüten wir Ihnen bei kosten¬ 
freier Zusendung eines „Original amerikan. Extended Basic" Moduls 
(elektrisch/mechanisch einwandfreier Zustand!!!) 

-• 

DM 

70- 

32k-RAM-Erweiterung zum seitlichen Anstecken an den Bus, im Kunststoff¬ 
gehäuse 190 x 110 x 60 mm, der Bus wird nach rechts durchgeschleift; 
mit 5V Steckernetzteil 


DM 

295 - 

32k-RAM-Erweiterung, jedoch mit zusätzlichem Centronic-Interface 
nach hinten herausgeführt; Direktanschluß an PP-A4 


DM 

395,- 

1 28k-RAM-Erweiterung (Ausführung wie 32k) mit Centronic-Interface 


DM 

595,- 

Centronic-Interface im Gehäuse der 32k-RAM-Erweiterung 


DM 

188,- 

4-Farben-Printer-Plotter PP-A4, Centronic-Schnittstelle, DIN-A4 Format, 
Direktanschluß an 32k-RAM 


DM 

699 - 

Slim-Line-Laufwerk 5,25", 500kByte-DS/DD 


DM 

498 - 

Einbausatz für 2 Laufwerke in Original-I I-Box, mit Manual 


DM 

95- 

DISC-Steuerkarte (CorComp), DS/DD, bis zu 4 Laufwerke anschließbar 


DM 

635 - 

Anschlußkabel PP-A4 an 32K-RAM 


DM 

68,- 

QLTCK-DI SC- FLOPPY (im Gehäuse), zum Direktanschluß an TI-99/4A, mit 128kByte — DS, 
für 2,8" Disketten, mit Steckernetzteil 

DM 

598 - 


Preise in DM/Stück inkl. Mwst. 

Technische Änderungen Vorbehalten 
Versand gegen Nachnahme oder Vorauskasse. 


albs-Alltronic G. Schmidt - Postfach 1130 - 7136 Otisheim 
Tel. 07041/2747 • Telex 7263738 albs 







Immer einen Schritt voraus. 

Compact Computer 

CC-40 









Tfxas 

Instruments 


CC-40 - das ist geballte Computer-Intelligenz im 
bedienungsfreundlichen Kompakt-Format: 

• 3 Programmiersprachen. 

• Mit hervorragendem BASIC, z.B. IF-THEN-ELSE Verzwei¬ 
gung oder FORTO-STEP und NUMBER-RENUMBER 
Funktionen. 

• 39 festprogrammierte BASIC-Statements. 

• Extrem ausbaufähig: Mit 4 Farb-Drucker, 80 Zeichen 
(DIN A 4)'Drucker, RS-232 Interface und Quick-Disk 
Massenspeicher von Mechatronic (64 k-Byte). 

CC-40 - kein anderer Compact-Computer hat sein 
Format. 


Jetzt testbereit bei: 


• Fa. Runow, Keithstr. 26, 

1000 Berlin 30, Tel. 0 30/ 2 611126 

• Fa. Runow, Bachstr. 104, 

2000 Hamburg 76, Tel. 0 40 / 2 201155 

• Fa. Gieseke, Adolfstr. 8 a, 

3000 Hannover l, Tel. 05 11 / 32 68 08 

• Fa. Mareno, Georgstr. 20, 

3000 Hannover 1, Tel. 05 11 / 32 73 11 

• Fa. H. Fischer, Rudolf-Schwander-Str. 5, 
3500 Kassel, Tel. 05 61/77 0087 

• Fa. Buschmann, Druhbel 17/18, 

4400 Münster, Tel. 02 51 / 4 02 68 


• Fa. B. Herr, Pohlweg 110 (im SK-Südring), 
4790 Paderborn, Tel. 0 52 51 / 6 37 43 

• Fa. Hansen, Münsterstr. 1, 

5300 Bonn, Tel. 02 28/729080 

• Fa. Hansen, Schützenstr. 9-11, 

5400 Koblenz, Tel. 02 61/3 75 51 

• Fa. Reis, Bergstr. 80, 

5584 Bullay, Tel. 065 42 / 27 15 

• Fa. N. Schneider, Ostbahnhofstr. 18, 
6000 Frankfurt, Tel. 0 69 / 43 4695 

• Fa. Kirsch, Richard-Wagner-Str. 37, 
6750 Kaiserslautern, Tel. 0631/653 33 


• Fa. Kompatibel GmbH, Herdweg 31, 
7000 Stuttgart 1, Tel. 07 11 / 22 32 32 

• Fa. Fickler, Kaiserstr. 34, 

7500 Karlsruhe, Tel. 07 21 / 6610 64 

• Fa. CDS, XX'indausstr. 2, 

7800 Freiburg i. Br., Tel. 07 61 / 810 47 

• Fa. Kaut-Bullinger, Roscnstr. 8, 

8000 München 2, Tel. 089/6 22 62 27 

• Fa. Seemüller, Schillerst!’. 18, 

8000 München 2, Tel. 0 89 / 59 42 81 

• Fa. Blahout, Krankenhausstr. 2, 

8520 Erlangen, Tel. 091 31 / 2 46 74 











